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Preface 



This introductory book is intended for students in a classroom setting. Un- 
like most programming texts, the objective of this book is to introduce the 
BASIC language through business problems rather than introducing the 
language and then solving problems. The business problems start at a 
simple level and are expanded to become more complex as you proceed 
through the book. All examples, exercises, and problems deal with busi- 
ness—payroll, inventory, customer statements, salesmen's commissions, 
etc. This book was written with an assumption that the reader has some 
basic knowledge of business transactions. A mathematics background is not 
required. 

After teaching courses in Management Information Systems (MIS) for 
many years to Business School students, it became clear that most program- 
ming texts fail to give the student the necessary background. MIS requires a 
fundamental background in files. This material is usually taught last, if at 
all, in a programming course. Files are used extensively in this book (star t- 
ing in Chapter 4). All business applications use files, and the file instru c- 
tions for the TRS-80 are different from those for other compute rs. This 
book was written specifically for the Model II and Model III. Where devia- 
tions occur between the two models, they are highlighted in the text. One of 
the major differences between the two TRS-80 models is the size of the 
screen. The Model III will display 64 characters to a line, while the Model II 
will display 80 characters. As a result, all programs in the book use 64 char- 
acters to a line. Since all programs deal with business, all outputs were pro- 
duced on a line printer although the programs will indicate a print to the 
screen. ix 
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At the end of this chapter you should be able to: 

# Understand the importance and impact of computer usage 

m Sign-on and sign-off the TRS-80 computer 

m Understand how the TRS-80 reacts to system commands 

Everyone living in the United States today is affected by computers. The 
federal government uses computers in almost all of its departments. The So- 
cial Security Administration and the Internal Revenue Service are highly 
computerized. State and local governments use computers for tax collections 
and assessments. Businesses and utilities use computers for customer billing. 
Banks and other financial organizations use computers to handle customer 
accounts. Hospitals use computers for hospital administration and patient 
billing. Unless you live as a hermit in a cave, you are affected everyday in 
some way by computers. 

The computer revolution is approximately thirty years old. Since 1946 when 
the ENIAC (the first electronic digital computer) began operating, the 
changes that computers have wrought have been prodigious. All areas of our 
society have been, and are being, touched by computers. From the time we 
read the morning newspaper (typeset by computer) until we go to sleep 
watching television (computer allocated programs), we are constantly using 
computers either directly or indirectly. 

The effect of the Computer Revolution can be compared to the Indus- 
trial Revolution, which also radically changed society. Both revolutions 
changed work and leisure activities. With respect to work, no occupations 
were left untouched by the Industrial Revolution, except artisan crafts 
(sculptors, painters, etc.). Now, approximately two hundred years after the 
beginning of the Industrial Revolution, there are no coopers (barrel makers), 
wainwrights (horse drivers), millers (flour makers) or weavers (cloth makers) 
in the old sense of those occupations. The products or services are still sup- 
plied, but the methods of production have been radically altered. Work 
hours at the beginning of the Industrial Revolution were dawn to dusk, six 
days a week, leaving limited time for leisure activities. Now leisure is avail- 
able during long weekends and after working hours. The impact of the In- 
dustrial Revolution may aid us in imagining the breadth of changes that will 
result from the computer revolution. 

Initially, the few digital computers available were used for numerical 
calculations ("number crunching") by an elite group of mathematicians, en- 
gineers and scientists. Since then, radical changes in the cost, design, and use 
of computers have occurred. Today, computers are no longer the exclusive 
tool of mathematicians and scientists. More computers are used in busi- 
nesses, such as insurance, banking, retailing, utilities, manufacturing and 
hospitals, than are used in scientific organizations. Almost daily, television 
and newspapers report new uses of computers. The computer has taken the 
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drudgery out of calculating and printing bills, invoices, paychecks and other 
record-keeping tasks, freeing people from many of the routine tasks of add- 
ing numbers together. With the shift of paperwork from people to com- 
puters, some significant implications have become apparent. For society the 
use of computers is considered by some people to be a mixed blessing. But 
blaming the computer for human failings is an error. The computer itself is a 
tool It is simply a new technology and this technology will be used as soci- 
ety chooses. The first quarter century of the computer revolution has 
brought us 

• Computer controlled air-defense and air traffic control systems 
The landing of men on the moon 
Large scale and inexpensive use of checking accounts 
Credit cards 

® Integrated reservation systems for travel 

© Computerized hospitals 

© A new field of employment (data processing) 

• Management Information Systems 

But so far we can barely envision what the second quarter century will bring. 

The first computer dedicated to business applications was installed in 1954. 
Since that time business applications have become more sophisticated. Ap- 
plications at first consisted of simple clerical functions: preparation of pay- 
roll, financial statements, and other bookkeeping tasks. Thousands of 
clerical jobs were replaced by computers. The computer could do these rou- 
tine tasks faster, cheaper, and more accurately. 

The next major step was the use of computers to make simple decisions, 
e.g., ordering to restock inventory when a low level has been reached. At the 
present time, computers are the tools used to implement Management Infor- 
mation Systems (MIS). Management Information Systems transcend routine 
business applications because attention is focused upon providing manage- 
ment with the proper information for decision making. In many organiza- 
tions, it is common to see computer terminals in the offices of the president 
and other senior executives. And MIS will become more common in organi- 
zations as computers become less expensive and easier to use. The manager 
of the future will need some familiarity with computers in order to make use 
of the great potential of MIS. 

WHY USE BASIC (Beginners All-purpose Symbolic Instruction Code) is a computer 

lctll 6 ua 6^« * L vvaa ^liuacii iui uua icai lui iiumciuus icasom, 1 nc uisi anu 

most significant reason is that it is the simplest computer language that is 
widely available. The second reason is that the time required to learn BASIC 
is the shortest of all the common languages. Additionally, the extensions and 
enhancements made to BASIC have added power to the language, making 
BASIC comparable to other, more difficult languages. 
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A final reason for learning BASIC is that almost all of the manufac- 
turers and vendors of microcomputers and minicomputers provide BASIC 
for their machines and systems; and these smaller computers are the fastest 
growing segment of the computer market. Radio Shack alone has sold over 
250,000 TRS-80 microcomputers; and every one of these small computers 
used BASIC for its higher-level language. Computers of this type are used 
by the hobbyist as well as by the largest organization. 

This text is written with an assumption that the student has some basic 
knowledge of business transactions such as payroll, invoicing, and customer 
statements. It is also helpful if the student has the ability to think logically. 
The computer is not affected by emotions. If the student is a disciple of Mar- 
shall McLuhan, beware: The computer is not! 

It is not important, however, that you possess a mathematical back- 
ground in order to learn BASIC. (A mathematical background, however, 
will not penalize a student.) On the basis of the successful completion of this 
text alone, the reader will probably not be able to find employment as a com- 
puter programmer or technician; but the student will understand the funda- 
mentals of programming and be able to write programs of reasonable 
complexity. 
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In business, one usually wishes to computerize a manual system or function. 
It is important to understand how the manual system operates in order to 
successfully perform this function on a computer. Throughout this text, the 
major example will be the payroll function. It will serve as a vehicle for the 
introduction of programming (instructing the computer to perform a func- 
tion, in this case payroll). A payroll system consists of the collection and ma- 
nipulation of data to pay people for their time spent working. An hourly 
payroll system will be analyzed and programmed. 

The first step in computerizing a payroll is an analysis of the system and 
a clear definition of the system: The Silpar Company, Inc., has approxi- 
mately 14 hourly employees used in the fabrication and assembly of com- 
puter components. All hourly wages are computed on the basis of hourly 
rate multiplied by the regular hours worked, plus time-and-a-half for over- 
time. The normal work week is 40 hours with one paid hour per day for 
lunch and coffee breaks. An employee may work a maximum of 20 overtime 
hours per week, if work is available. The payroll system should produce 
weekly paychecks and the necessary reports for tax and auditing purposes. 

It should be obvious that all of the analysis and definition of the com- 
puterized payroll system has not been performed in the preceding para- 
graph- However, enough has been stated to begin the computerization of the 
payroll system. The first step consists of identifying the data necessary to 
produce all of the output (paychecks and reports). An examination of the 
manual system data will provide the answers to our first step. 

In the manual system, each employee has a record that contains infor- 
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mation such as employee number, social security number, address, marital 
status, number of dependents, hourly wages, wage payments made during 
the last year, federal income taxes withheld, PICA (Social Security) and 
other miscellaneous data. Each week, time cards are used to accumulate the 
regular and overtime hours worked by each employee. At the end of a pay 
period (weekly), the time cards are signed by the employee's supervisor and 
sent to the payroll department for processing. The payroll department com- 
putes the employee's pay for the week, the required deductions, issues a 
check for the employee's net pay (gross pay minus deductions), enters this 
information into the employee's record, and prepares a payroll register. A 
payroll register is a listing of the amounts paid to all employees, all deduc- 
tions subtracted from their pay, and totals for all amounts. 

In computerizing the payroll function or any other business application, 
it is very important to understand that files are used exactly as in the manual 
system. In the payroll, two files are used. The first is the employee master 
file; it consists of the records of all the employees. Each employee record 
contains data infields. The fields are: employee number, name, hourly rate, 
etc. It is important to note that all records in one file must contain the same 
fields in the same order. Also, fields may contain data that is numeric, 
alphabetic, or both alphabetic and numeric (alphanumeric). The second file 
is the time //Ye; it consists of a record for each employee and contains as 
fields the regular and overtime hours worked. With these two files and the 
appropriate program, a payroll register will be produced in Chapter 8. 

COMMUNICATING Sometime in the not too distant future, we may communicate with compu- 
\N\j\~\ jhe TRS-80 ters by simply talking. In many science fiction films this is already the case. 
Unfortunately, technology has not taken us that far yet. As a consequence, 
we have to communicate with a computer through some sort of mechanical 
device. The common name for this device is a keyboard. One important 
feature is that a keyboard is similar to a typewriter keyboard. 

The keyboard allows us to communicate with the TRS-80. It takes the 
information that we transmit by pressing on the keys and transforms it into 
electronic signals that can be understood by the computer. Conversely, 
when the TRS-80 communicates with us, the terminal transforms the elec- 
tronic signals from the computer into characters printed on paper or dis- 
played on a video screen. A short way of referring to the screen is by the ini- 
tials CRT, which stands for cathode ray tube. The way messages are written 
on a CRT is similar to the way pictures appear on a TV screen. (A television 
nicture tube is a CRT. but no one calls it that, except technicians.) In the 
TRS-80 the computer is housed in the same enclosure as the keyboard. 

You should not be timid about using the TRS-80: The important thing 
to remember is that j>o« cannot damage a computer or do any harm to it by 
typing anything on the keyboard. The only way you can cause any damage 
is by banging on the keyboard or spilling coffee on it. You may type any- 
thing on the keyboard and not harm or "break" the computer system. Simi- 
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iarly, neither the keyboard nor the computer can harm the user in any 
physical manner. 

Every time you wish to use the TRS-80, there is a procedure that you must Sign-On 
follow. This procedure is called a sign-on. Silly as it may sound, your first Procedure 
step, after sitting at the TRS-80, is to make sure it is on. There are two dif- 
ferent sign-on procedures depending upon whether you have a Model III or 
a ModelO. 

For the Model III 

Once the TRS-80 is on, and all diskette units and printers are turned on, in- 
sert a TRSDOS system diskette in the disk unit. If you have two diskette 
drives, use the bottom one. The diskette label is on the top, and the oval 
hole is to the rear for insertion of the diskette. (See Appendix E for a de- 
scription of the TRSDOS system diskette and the Format and Backup pro- 
cedures.) Close the diskette door, and press the orange button. Messages are 
displayed on the screen, and you are asked to enter the date in this format - 
MM/DD/YY. (Example: September 1, 1981, would be typed in as 
09/01/81.) After typing the date, press "ENTER". You are then asked for 
the time in this format — HH. MM. SS. You do not have to enter the time. 
You may simply press "ENTER". The message TRSDOS Ready will appear 
on the screen. Type BASIC, and press "ENTER". The question "HOW 
MANY FILES?" will appear on the screen. Press "ENTER". Next the ques- 
tion "MEMORY SIZE?" will appear on the screen. Press "ENTER". The 
TRS-80 will respond with Ready and a "prompi" character ( >) on the next 
line. This tells you that the TRS-80 is ready for you to enter your program. 
The computer is prompting you to begin. 

The "ENTER" key serves the same function as a carriage return key on 
a typewriter. When you finish typing a line on a typewriter, you press it, Oft 
the TRS-80, when you press "ENTER", you have told the computer that 
you are at the end of a line. The TRS-80 will then respond with a prdftipt 
character ( >) or a message on the next line. 

To recap: 

1 . Turn the power switch on. 

2. Insert a diskette in the bottom drive. 

3 . Close the diskette drive door. 

4. Push the orange button. 

5 . Type the date MM/DD/YY when requested. Press "ENTER". 

6. Type the time HH.MM.SS. and press "ENTER", or just press 
"ENTER". 

7. Type BASIC. Press "ENTER". 
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8. HOW MANY FILES? Press "ENTER". 

9. MEMORY SIZE? Press "ENTER". 

For the Model II 
Once the TRS-80 is on, and all diskette units and printers are turned on, 
insert a TRSDOS system diskette in the drive — label to the right. (See 
Appendix E for a description of the TRSDOS system diskette and the For- 
mat and Backup procedures.) When the diskette is properly inserted, you 
will hear a click. Close the diskette drive door. Messages are displayed on 
the screen and you are asked to enter the date. Type in the date in this for- 
mat -MM/DD/YYYY. {Example: September 1, 1981, would be typed in as 
09/01/1981.) After typing in the date, press "ENTER". You are then asked 
for the time in this format -HH. MM. SS. You do not have to enter the 
time. You may simply press "ENTER". The message TRSDOS Ready will 
appear on the screen. Press the key "CAPS", type BASIC, and press 
"ENTER". The TRS-80 will respond with READY and a "prompt" char- 
acter (>) on the next line. This tells you that the TRS-80 is ready for you to 
enter your program. The computer is prompting you to begin. 

The "ENTER" key serves the same function as a carriage return key on 
a typewriter. When you finish typing a line on a typewriter, you press it. On 
the TRS-80, when you press "ENTER", you have told the computer that 
you are at the end of a line. The TRS-80 will then respond with a prompt 
character ( >) or a message. 

To recap: 

1 . Turn the power switch on. Turn on all diskette units and printers. 

2. Insert a diskette in the disk drive and close the door. 

3. Type the date MM/DD/YYYY when requested. Press "ENTER". 

4. Type the time HH.MM.SS. and press "ENTER", or just press 
"ENTER". 

5 . Press "CAPS". Type BASIC. Press "ENTER". 

Sign-Off When you have finished with the TRS-80, the following procedure should 

Procedure be used. 

For the Model III 

The TRS-80 will respond with the message TRSDOS Ready. Then remove 
the diskette from the drive after the drive light goes out. Turn the power 
switch off. 
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For the Model H 
Type SYSTEM and press "ENTER". The TRS-80 responds with TRSDOS 
Ready. Open the diskette drive door and remove your diskette. Then turn 
the power switch to the off position. Always remove your diskette before 
turning the power off! 



In order to write programs (instructions understood by the computer), the Programming 
sign-on procedure must be used. The program in BASIC is entered through in BASIC 
the terminal after the prompt character, line by line. 

The greatest problem that people have when first using a computer is 
that they forget to press the "ENTER" key after entering something on a 
line. The result is that nothing happens! The "ENTER" must be pressed to 
indicate the end of your message to the computer. Until it is pressed, the 
computer assumes that you have not finished whatever you are trying to tell 
it! 
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At the end of this chapter you should be able to: Performance 

® Write a program that will do simple calculations Objectives 

® Enter a program into the computer and use simple BASIC commands 

(NEW, SAVE, LIST, RUN) 
® Use BASIC instructions for data manipulation and calculations (assign- 
ment to data fields, addition, subtraction, multiplication, division, 
output of results, end of program) 
m Retrieve and modify an existing program using a BASIC command 

(LOAD) 
@ Obtain a list of programs stored on a diskette 

The first uses of computers were computational. The power of the computer 
was used to perform engineering and scientific calculations. In business 
there are many instances where calculations have to be performed. Com- 
puters can perform these calculations very quickly. In this chapter we will 
show you how to program the computer to perform calculations and how to 
display the results of these calculations. 

The first problem deals with payroll calculations. Starting with elementary WRITING A 

calculations, this problem will be expanded to include more and more realis- PROGRAM 

tic elements. For the very first problem you are given the hourly rate and the 
number of hours worked. You are asked to calculate the gross pay for an 
employee. 

One way of showing what a program does is to diagram the general steps of Flowcharting 
a program. Such a diagram shows the order in which the various steps are The Logic of 
performed. Conceptually the execution of a program flows from one instruc- a Program 

tion to another; hence, the name flowchart. Flowcharts are used throughout 
this book to illustrate the structure of programs. For simple programs a 
flowchart may not be necessary; however, for complex programs flowcharts 
are very helpful. The symbols used in program flowcharting are explained 
here. 



The rectangle is used to describe all processing performed by a com- 
puter. The arrow shows the direction of flow in the flowchart. In general the 
flow is top to bottom and left to right on a page. 




The diamond is used to indicate a decision point where the flow may go 
in one of two directions depending on the condition in the diamond. The 
parallelogram is used to indicate input of data to the computer or output 
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of information from the computer. The oval is used for the beginning or end 
of the program. 



CZD 



Problem Summary 
Input 

Hourly rate: $3.00 

Number of hours worked: 40 
Processing 

Multiply hourly rate; tirn^s hours worked, giving gross pay. 
Output 

Gross pay 

The paycheck calculation program has to perform the following steps: 

1 . Assign values to data fields. 

2. Calculate the gross pay. 

3. Output the gross pay amount. 

4. End the program. 

The flowchart and & BASIC computer program to perform these four 
steps is shown below: 



10 REM PROGRAM TO COMPOTE PAY 

100 LET R=3.00 

110 LET H=40 

120 LET P=R*H 

130 PRINT P 

140 STOP 

32767 END 



f Start J 


' 


r 


Assign Initial 
Data Values 



Calculate Gross Pay 



/Ou 



tput Gross Pay 



/ 



I 



f Terminate J 



Writing a Program / 15 



This program consists of seven lines. Each line starts with a number. 
This number, also called the statement number, is important because it tells 
the computer the sequence in which this program should be performed.. The 
statement with the lowest number will be performed first, then the statement 
with the next lowest number, and so on until the end of the program is, 
reached. 

In this example the statement numbers go from 10 to 32767. However, 
any other spquence of numbers that keeps the same order could have been 
used. As long as the order of the lines is not changed, the lines could have 
been numbered from 10 to 16. These line numbers would have the same 
effect as the present numbers in the example program. Each line of the 
program is now explained: 

The first line, 10 REM PROGRAM TO COMPUTE PAY, serves the 
programmer and not the computer. In fact, all "REM" statements are ig- 
nored by the computer. REM is short for remark. It is used to insert com- 
ments in a program as an aid to understanding the logic of the program. 

The second line, 100 LET R - 3.00, states that the value 3.00 (the hourly 
rate of $3.00) is assigned to the field called R (for rate). The programmer 
identifies these fields by giving each a name. In BASIC, field names consist 
of one letter, or a letter followed by a single-digit number or two letters. 
Following are examples of field names with explanations of their validity. 

Example Explanation 

A Valid field name; one letter 

AA Valid field name; two letters 

Al Valid field name; one letter followed by single-digit 
number 

B2 Valid; one letter and one digit 

2B Invalid; the first character has to be a letter 

O0 Valid; letter "O" followed by zero "0" (but not recom- 
mended since it is hard to see the difference) 

II Valid; letter "1" followed by number "1" (also not 

recommended since it may be difficult to distinguish be- 
tween I and 1) 

The third line, 1 10 LET H - 40, sets the value of H (H stands for hours 
worked) to 40. It is good practice to use field names that will help you to 
remember what is in that field. Such descriptive names are called mnemonic 
—memory aids. Of course, with only one letter, two letters, or a letter fol- 
lowed by a number, BASIC is limited in mnemonic capability. 

The fourth line, 120 LET P = R * H, performs the calculations for gross 
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pay. First the hourly rate (R) is multiplied by the number of hours worked 
(H). Then the result of this multiplication is placed in the field P. The star 
( * ) between R and H means multiply. Other arithmetic operations are + 
(plus) for addition, - (minus) for subtraction, / (slash) for division. A final 
arithmetic operation -raising to a power- shows as [ on the screen when 
you press the upward arrow ( f ) on the Model III. On the Model II, 
pressing the shift key and the 6 shows as a caret ( * ) on the screen. Paren- 
theses may be used to separate parts of an arithmetic statement. 

The next line, 130 PRINT P, tells the system to display the value of field 
P. Whatever number has been placed into the field called P, will be written 
on the screen. 

The last two lines are used to terminate the program. The STOP tells 
the TRS-80 that the processing is finished. This statement will result in a 
message after your program has run that will tell you that the program has 
finished as you intended. The END, which is the last statement of any 
program, is optional on the TRS-80. If you use other computers with the 
BASIC language, it is absolutely necessary, and its omission will result in an 
error. The END instruction is used in all programs in this book. Since it is 
the last instruction of a program, it will have the statement number 32767; 
32767 is the highest line number available on the Model II. 

RUNNING THE The next step in the problem-solving process is the entry of the program into 

PROGRAM the TRS-80. First, sign-on the system using the procedure from the previous 

chapter. Once you are on, then type 

NEW 

Don't forget the "ENTER"! The command NEW tells the system that a new 
BASIC program will be entered. The computer is now ready to accept the 
program and responds with Ready and on the next line a > is printed. At 
this time, type the program, one line at a time, ending each line with 
"ENTER". The program that you enter will be held in the TRS-80 memory. 
The memory is where anything typed from the keyboard is stored. 
When the TRS-80 is turned off, all information stored in memory is wiped 
clean. Think about the memory as a blackboard that is wiped clean when 
you sign off. 

10 REM PROGRAM TO COMPUTE PAY 
100 LET R=3.00 
110 LET H=40 
120 LET P=R*H 

140 STOP 
32767 mD 

If a mistake is made in typing a line, the mistake can be corrected by 
pressing "ENTER" and retyping the line. To erase a single character, use the 
backward arrow key (<-) (Model III), or the "BACKSPACE" key (Model 
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II). Do not worry, mistakes will occur; to err is human. Merely retype the 
line correctly. 

When the program has been entered into the TRS-80, type 

SAVE "PAY" 

This command places a copy of the program onto the diskette and stores it 
there under the program name (PAY). You can use up to 8 characters for a 
program name. The first character must be alphabetic. The program itself is 
also still in the memory (only a copy of the program exists on the diskette). 
If you did not SAVE "PAY", and turn the TRS-80 off, you would have to 
retype the program. To see what is in the memory type 

LIST 

This command will display the program in memory. Each line of the pro- 
gram is written on the screen. The command permits you to check that the 
program was entered correctly. Errors can be corrected by retyping incor- 
rect lines. When a new line is typed with an old line number, the new line 
wipes out the old line and takes its place in the program sequence. To tell 
the computer to do what the program says (i.e., to execute or run the pro- 
gram) type the word 

RUN 

If you type RUN and the screen displays the message: 

Syntax Error in 130 

Ready 

130 

this means that you have made a typing error in line 130. Press "ENTER", 
and the screen will display the incorrect line and the prompt character (>) 
on the next line. Retype the line, press "ENTER", and, on the next line after 
the prompt character, type RUN. Then press "ENTER". Syntax errors con- 
sist of typing BASIC instructions wrong. For example, if you typed 130 
PRNT P you would get an error message when you try to run the program. 
Syntax errors are called "dumb errors". The computer will catch these. If 
you typed 100 LET R = 300, the computer would not catch that type of 
error. 

NEW 
Ready 
> 

>10 REM PROGRAM TO COMPUTE PAY 
>100 LET R=3.00 
>110 LET H=40 
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>120 LET P=H*R 
>130 PRINT P 
>140 STOP 
>32767 END 
> 

>SAVE "PAY" 
Ready 
> 

>LIST 

10 REM PROGRAM TO COMPUTE PAY 
100 LET R=3.00 
110 LET H=40 
120 LET P=H*R 
130 PRINT P 
140 STOP 
32767 END 
Ready 
> 

>RUN 
120 
Break in 140 
Ready 
> 

Notice that the last line BREAK IN 140 is a result of the STOP. Ail 
programs, when run, will give this message. The line number will corre- 
spond to the line number of the STOP. As you proceed through the book, 
programs become more complex, and it is important to know if your pro- 
gram ran to completion. The message "BREAK IN " tells us that the 

program finished as it should. 

Since the terminal session is now complete, sign-off. 

When looking at the process that has occurred, some elements become 
apparent. First the problem has to be precisely specified. In this case the 
specification included a definition of starting values, hourly rate and hours 
worked; a statement of the desired output, gross pay; and a statement of 
how to get the output from the given inputs-multiply hourly rate by hours 
worked to get gross pay. Second, a program has to be written to perform the 
actions required to solve the problem. Third, the computer performs the in- 
structions, one at a time in line number sequence. The BASIC instructions 
that tell the computer what to do were: 

The LET statement, which assigns a value to a field 
The PRINT statement, which displays the value of a field 
The STOP statement, which tells the computer to stop executing 
The END statement, which indicates the end of the program 

These are all statements in the BASIC language. Furthermore, to work with 
a program, these BASIC commands were used: 
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NEW To tell the system that a new program will be input from the 
keyboard 

SAVE To tell the system to keep a copy of the program on the diskette 

LIST To display the program currently in the memory 

RUN To tell the TRS-80 to perform (execute) the program 

BASIC commands do not have line numbers; BASIC instructions (state- 
ments) must have line numbers. Only after the last command (RUN) is en- 
tered does the computer actually perform (execute) the instructions of a 
program. 

Invoice Example: This example deals with invoice calculations. Initial data Examples 
are the number of units sold and the price per unit for an item. The output 
desired is the dollar amount of the invoice. 



Problem Summary 
Input 

Number of units soldi 50 

Price per unit: $15 
Processing 

Multiply number of units sold by price per unit, giving dollar amount of 

invoice. 



Dollar amount of invoice 














COMPUTES 
COMPUTES 


INVOICE 
INVOICE 


AMOUNT 
AMOUNT 




NEW 
READY 


( Start J 


>10 REM THIS PROGRAM 
>100 LET U=50 
>110 LET P=15 
>120 LET D=U*P 


1 


r 


Assign initial Data 
Values 


>130 PRINT D 
>140 STOP 
>32767 END 
> 


1 


' 


Calculate Invoice 
Amount 


>SAVE "INVCE" 

READY 

> 

>LIST 


i 


' 


/ Print Invoice / 
/ Amount / 


10 REM THIS PROGRAM 
100 LET U=50 
110 LET P^15 
120 LET D=U*P 


i 


' 


( Term 


nate J 
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130 PRINT 


D 


140 STOP 




32767 


END 




READY 






> 






>RUN 






750 






Break 


in ! 


L40 



Inventory Example: This problem asks for the calculation of ending inven- 
tory. The number of units in beginning inventory, the number of units re- 
ceived into inventory and the number of units released from inventory are 
given. 

Problem Summary 
Input 

Number of units in beginning inventory: 120 

Number of units received into inventory: 40 

Number of units released from inventory: 45 
Processing 

Add number of units received to inventory; then subtract number of 

units released, giving ending inventory. 
Output 

Number of units in ending inventory 



NEW 
Ready 
> 

>10 REM THIS PROGRAM COMPUTES ENDING INVENTORY 
>100 LET B=120 
>110 LET Rl=40 
>120 LET R2=45 
>130 LET E=B+R1-R2 
>140 PRINT E 
>150 STOP 
>32767 END 

N. 

>SAVE "INVTY" 
Ready 
> 

>RUN 
115 
Break in 150 
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Note: Save all programs. These exercises will be modified in later chapters. 

Commission Exercise: Write a program to calculate the commission that a Exercises 

salesman has earned. The initial data are gross sales and the commission 

rate. 

Problem Summary 

Input 

Gross sales: $12000 
Commission rate: 0.05 

Processing 

Multiply gross sales by commission rate, giving dollar amount of com- 
mission. 

Output 

Dollar amount of commission 

Program: 



Run your program, and see if your output matches the following: 



RUN 
600 
Break in 140 
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Account Balance Exercise: Retail merchants have to update customer ac- 
counts. The update consists of adding new charges to an account balance 
and subtracting customer payments from an account balance. Write a pro- 
gram that will perform these tasks to arrive at an ending balance for the 
customer. 

Problem Summary 

Input 

Starting balance: $60 
Customer payments: $60 
New charges: $45 

Processing 

Subtract customer payments from starting balance; then add customer 
charges to balance, giving ending balance. 

Output 

Ending balance 

Program: 



Run your program and check your ending balance with the following ending 
balance: 



RUN 
Break in 150 



MODIFYING To change a program that has already been written requires the use of some 
j HE PROGRAM new BASIC commands. For the payroll example, a modification is in order, 
if the problem is changed. 
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Assume that the output requirement is changed so that the words 
"GROSS PAY" as well as the amount of gross pay are displayed. This 
change requires that the print statement in the program be expanded for the 
output of alphabetic information. Printing aphabetic information is easy: 
Simply type "PRINT" followed by the alphabetic information enclosed in 
quotation marks as illustrated in line 125 below. Each PRINT causes one 
line of output. Therefore to display a line with "GROSS PAY", followed by 
a line with the amount of gross pay, the new program would look as follows: 



10 REM PROGRAM TO COMPUTE PAY 

100 LET R=3.00 

110 LET H=40 

120 LET P=R*H 

125 PRINT "GROSS PAY" 

130 PRINT P 

140 STOP 

32767 END 



( s, m ) 


1 


Assign Initial 
Data Values 




f 


Calculate Gross Pay 


V 


/Output Heading for/ 
/ Gross Pay / 


i 


/ Output Gross Pay / 


i 


f 


f Terminate ] 



This new program has an extra line. To add this line to the existing program, 
it will be necessary to get the old program, and make the addition. This 
modification involves a series of steps. 

First, sign-on the system. Next to get a copy of the program from the 
diskette, type 

LOAD "PAY" 



This command will copy your SAVEd program (PAY) from your disk- 
ette to memory where you may modify or RUN it. 
If you cannot remember the program name, type 
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CMD "D:0" 
SYSTEM "DIR" 



(Model III) 
(Model II) 



This command gives a list of the program names on the diskette. It stands 
for diskette directory. 

After PAY is in memory, the new line can be inserted into the program. 
Type the additional line 

125 PRINT "GROSS PAY" 

The system will place the line in the proper sequence automatically. In order 
to provide space for program modifications, the line numbers were initially 
picked so that there was room for the insertion of additional lines. If the 
line numbers in the original program had run from 10 to 16, then no open 
space for program modifications would have been available. To place a 
copy of the modified program on your diskette the command 

SAVE "PAY 1" 

will have to be used. 

After saving the modified program, LIST it; then RUN it. Following is 
the sequence that performs these tasks. 

LOAD "PAY" 
READY 
> 

>125 PRINT "GROSS PAY" 
> 

>SAVE "PAY1" 
READY 
> 

>LIST 

10 REM PROGRAM TO COMPUTE PAY 
100 LET R=3.00 

LET H=40 

LET P=R*H 

PRINT "GROSS PAY" 

PRINT P 

STOP 
32767 END 
READY 
> 

>RUN 
GROSS PAY 

Break in 140 

Review of The problem modification procedure starts with a change in one of the prob- 

Problerm lem specifications, either a change in initial data, or in the processing re- 

Modiflcatlon quirement, or in the desired output. In this example, the output was changed 

Procedure to include alphabetic information. Then the required changes are identified 

in the written program. 



110 
120 
125 
130 
140 
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Next, on the TRS-80, the old program is retrieved from the diskette 
and placed in memory. The new line is added to the program. The program 
is renamed and saved. The changed program is then listed and executed. 

Invoice Example: In this problem we want to have a heading for the invoice Examples 
dollar amount. The remaining problem specifications are unchanged. The 
procedure for making this modification is given as follows: 

LOAD "INVCE" 
READY 
> 

>LIST 

10 REM THIS PROGRAM COMPUTES INVOICE AMOUNT 
100 LET U=50 
110 LET P«15 
120 LET D=U*P 
130 PRINT D 
140 STOP 
32767 END 
READY 
> 

>125 PRINT "INVOICE AMOUNT" 
> 

>SAVE "INVCE2 M 
READY 
> 

>RUN 
INVOICE AMOUNT 

750 
Break in 140 

Sales Tax Example: Many states and municipalities require that a sales tax 
be added to the purchase price of an item. The initial data for this problem 
are a dollar amount of taxable sales and the tax rate. The desired output is 
the total amount of the sale that the customer has to pay. 

Problem Summary 
Input 

Dollar amount of sale: $10.00 
Tax rate: 4% 

Processing 

Multiply tax rate by dollar amount to get taxes. Add taxes to dollar 

amount, giving total amount of sale. 
Output 

Total sale 

NEW 
Ready 
> 
>10 REM THIS PROGRAM COMPUTES THE TOTAL SALE 
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>100 LET S=10 .00 

>110 LET R=.04 

>120 LET T=S*R 

>130 LET A=S+T 

>140 PRINT A 

>150 STOP 

>32767 END 

> 

>SAVE "TAX" 

Ready 

> 

>RUN 

10.4 
Break in 150 

It now becomes desirable to have additional output. Customers would like 
to see the tax separate from the total. Therefore, the desired output has 
been changed to include printing of the sales amount and of the tax. 

LOAD "TAX" 
READY 
> 

>135 PRINT S 
>I37 PRINT T 
> 

>SAVE "TAX" 
READY 
> 

>LIST 

10 REM THIS PROGRAM COMPUTES THE TOTAL SALE 
100 LET S=10 .00 
110 LET R=.04 
120 LET T=S*R 
130 LET A=S+T 
135 PRINT S 
137 PRINT T 
140 PRINT A 
150 STOP 
32767 END 
READY 
> 
>RUN 

10 

A 

10.4 
Break in 150 

Exercises Account Balance Exercise; Change the account balance problem so that 

the title "ENDING BALANCE' will appear as part of the output. Your 
output should look similar to the output shown below: 
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RUN 
ENDING BALANCE 

45 
Break in 150 



Sales Tax Exercise: Change the sales tax problem to calculate the total sales 
amount for a tax rate of 5%. The title "TOTAL SALE" should appear in the 
output. You can check your results with the output shown below. 



RUN 
TOTAL SALE 

10.5 
Break in 150 
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PRINTING The PRINT instruction has already been used to display the value of one 

MANY VALUES field as well as to display alphabetic information. This PRINT statement can 
ON A LINE also be used to output many field values. To output many fields with one 

PRINT statement, the fields are separated by commas. This capability is il- 
lustrated by taking the initial payroll example and changing the desired out- 
put to a display of the hours worked and the hourly rate in addition to the 
output of gross pay. 

Problem Summary 

Input 

Hourly rate: $3.00 
Hours worked: 40 

Processing 

Multiply hours worked by hourly rate, giving gross pay. 

Output 

Hourly rate, hours worked, and gross pay 

This change would alter line 130 of the Pay program to 
130 PRINT R, H, P 
To make this change in the program, the required sequence of steps is: 

1 . Sign-on. 

2. Get the old program (LOAD "PAY"). 

3. List the old program (LIST). 

4. Type the new line (130 PRINT R, H, P). 

5. Save the program (SAVE "PAY2"). 

6. List the program (LIST). 

7 . Execute the program (RUN) . 

8. Sign-off. 

mt ■ c . 1 .1 .... .1 ...... j. 1. „ -C11 : x i 

11110 OOl^U^lil^ KJt OtV-pO VWL*lti piUUUVU LiXV/ iUllWTtlXl^, v/ViV^ «-**.. 

LOAD "PAY" 
READY 
> 

>LIST 
10 REM PROGRAM TO COMPUTE PAY 
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100 LET R=3.00 

110 LET H=40 

12 LET P=R*H 

130 PRINT P 

140 STOP 

32767 END 

READY 

> 

>130 PRINT R,H,P 

> 

>SAVE "PAY 2" 

READY 

> 

>LIST 

10 REM PROGRAM TO COMPUTE PAY 

100 LET R-3.00 

110 LET H=40 

120 LET P=R*H 

130 PRINT R,H,P 

140 STOP 

32767 END 

READY 

> 

>RUN 

3 40 120 

Break in 140 



Notice that with the new PRINT instructions, three numbers are 
printed on a line. Each of these field values starts at a column position that 
has been built into the system. The prespecified column positions are called 
zones and are 16 characters long. For the Model HI, with 64 columns per 
line, there are four print zones. The Model II, with 80 columns per line, has 
five print zones. If the PRINT instruction contains more fields than can be 
printed on a single line, the fields will be continued on the next line. 

With the prespecified zones, headings and associated data will always 
line up. As long as the alphabetic information has less than 16 characters, 
including blanks, any data displayed will fall directly under the headings. 
This alignment is shown in the revised payroll problem where headings are 
added to the output. 



Problem Summary 
Input 

Unchanged 
Processing 

Unchanged 
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Output 

Change output to include headings for hourly rate, hours worked, and 

gross pay. 

This modification requires that a line of headings be added to the program. 
After sign-on, the steps are: 

1. Get the old program. 

LOAD "PAY 2" 

2. List the program to see where to make the modification, 

LIST 
10 REM PROGRAM TO COMPUTE PAY 
100 LET R=3.00 
110 LET H=40 
120 LET P=R*H 
130 PRINT R,H,P 
140 STOP 
32767 END 

3. Make the change. In this example, the data are printed in line 130. Since 

the headings have to appear before the data, a line has to be added 
before line 130. The headings consist of the words "Hourly Rate", 
"Hours Worked", and "Gross Pay", It is good practice to keep headings 
and data together. Therefore, line number 125 is used to output the 
headings. 

125 PRINT "HOURLY RATE" f "HOURS WORKED" , "GROSS PAY" 

LIST 

10 REM PROGRAM TO COMPUTE PAY 

100 LET R=3.00 

110 LET H=40 

120 LET P=R*H 

125 PRINT "HOURLY RATE", "HOURS WORKED" , "GROSS PAY" 

130 PRINT R,H,P 

140 STOP 

32767 END 

4. Execute the program. 



RUN 






HOURLY RATE 


HOURS WORKED 


GROSS PAY 


3 


40 


120 


Break in 140 
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5. Check the output. Although this aspect has not been discussed before, it 
should be remembered that errors can occur. Therefore, whenever you 
execute a program for the first time, make sure that the output is correct. 
If you are satisfied with the output, then the program can be 
SAVED for future use in the current form. 



SAVE "PAY 3" 



6. If you are finished, sign-off. 



The headings in the last example were all smaller than the number of posi- 
tions available in a print zone. However, what would happen if the headings 
were longer? For example, what would the output look like, if the alphabe- 
tic titles that you wanted were "Hourly Rate of Pay", "Hours Worked", and 
"Gross Pay"? To find out what a system would do if requirements change, 
there is only one valid test — try it. Make the change and execute the 
program to see what happens. For the payroll problem, the key steps are 
shown below: 



HANDLING 

ALPHABETIC 

TITLES 



LOAD "PAY 3" 
Ready 
> 

>125 PRINT "HOURLY RATE OF PAY " , "HOURS WORKED", "GROSS PAY" 
> 

>RUN 
HOURLY RATE OP PAY HOURS WORKED GROSS PAY 

3 40 120 

Break in 140 

Oops! The data do not line up. One way of handling this problem is to 
print the headings on two lines. The heading "HOURLY RATE OF PAY" 
is separated into two parts "HOURLY" and "RATE OF PAY". The two 
parts are then printed separately. The procedure for this change involves re- 
typing line 125 as 

125 PRINT "RATE OF PAY", "HOURS WORKED", "GROSS PAY" 

and a new line is added as line number 123 

123 PRINT "HOURLY" 
Now the output from the program would look as follows: 



>125 
>123 

> 



PRINT 
PRINT 



"RATE OF 
"HOURLY" 



PAY", "HOURS WORKED", "GROSS PAY" 
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>RUN 

HOURLY 

RATE OP PAY HOURS WORKED GROSS PAY 

3 40 .120 

Break in 140 



Ready 

> 

>SAVE "PAY 3" 



Example Inventory Example: Inventory records typically show more than just the 
number of units in ending inventory. In this example we want to show the 
beginning inventory, the number received into inventory, the number issued 
from inventory, the number in ending inventory and the dollar amount of 
ending inventory. Furthermore, a general heading for the output is also 
worked. 



Problem Summary 

Input 

Number of units at beginning: 120 
Number received into inventory: 40 
Number of units issued from inventory: 45 
Cost per unit: $5.20 

Processing 

Add number received to beginning inventory and subtract number is- 
sued from inventory, giving ending inventory. Multiply ending inven- 
tory by cost per unit to get dollar amount of inventory. 

Output 

Heading of "Inventory Status", labels for each field of output "Begin- 
ning Inventory", "Receipts", "Issued", "Ending Inventory", and "Dol- 
lar Amount" followed by a line of field values. 



JNote: Five fields are printed on a line in this program. The heading "Inven- 
tory Status", should appear centered over the output. Therefore, to align 
the words "Inventory Status" over the third column, it is necessary to skip to 
the third zone position. Printing two blank fields will skip to the third 
column. Similarly, two blank fields are inserted in the print line for "Re- 
ceipts" and "Issued" since these titles do not have to be split over print lines. 
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( Start ) 




If 




Assign Initial Values 
to Fields 






u 




Calculate Ending Inventory 
at Dollar Value 




u 


- 


/ Output Headings / 


i 


' 


/ Output Field / 
/ Values / 


1 


r 


f Term 


inate J 



>LOAD "INVTY" 

READY 

> 

>LIST 

10 REM THIS PROGRAM COMPUTES ENDING INVENTORY 

100 LET B=120 

110 LET Rl=40 

120 LET R2=45 

130 LET E=B+R1-R2 

140 PRINT E 

150 STOP 

32767 END 

READY 

> 

>132 LET C=5.20 

>134 LET D=E*C 

>136 PRINT " "," "/'INVENTORY STATUS" 

>138 PRINT "BEGINNING"," "," " , "ENDING" , "DOLLAR" 

>140 PRINT "INVENTORY", "RECEIPTS " , "ISSUED " , "INVENTORY" , "AMOUNT" 

>142 PRINT B,Rl,R2,E,D 

> 

>SAVE "INV2" 

READY 

> 

>LIST 
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10 REM THIS PROGRAM COMPUTES ENDING INVENTORY 

100 LET B=120 

110 LET Rl=40 

120 LET R2 = 45 

130 LET E=B+Rl-R2 

132 LET C=5.20 

134 LET D=E*C 

136 PRINT " "," n , "INVENTORY STATUS" 

138 PRINT "BEGINNING 11 ," " , " ", "ENDING" , "DOLLAR" 

1 40 PRINT "INVENTORY" , "RECEIPTS" , "ISSUED" , "INVENTORY" , "AMOUNT" 

142 PRINT B,Rl,R2,E,D 

150 STOP 

3 2767 END 



Ready 
> 










RUM 






INVENTORY STATUS 




BEGINNING 






ENDING 


DOLLAR 


INVENTORY 




RECEIPTS 


ISSUED INVENTORY 


AMOUNT 


120 




40 


45 115 


598 


Break in 


150 









Notice that what you see on the screen of your TRS-80 will differ in 
many cases from what is printed in this book. The differences occur since all 
program listings and output presented were written on a printer with a 132- 
character print line, while the TRS-80 screen is only 64 characters wide on 
the Model III. On the Model II, with an 80-character per line screen, this 
problem will occur less frequently. 

Program output can, of course, use many more than 64 spaces. Some 
programs that generate reports will need more than 64 print positions. 
While you can write such a program in BASIC with no thought given to 
whether or not you even have a printer, when you RUN it, the output can 
look very strange as each printed line takes up two lines on the screen. This 
is called "wrapping". 

With a little practice, you can learn to read the screen well enough to 
tell whether or not your program ran correctly. 

The output on your screen for the last program would look as follows 
on the Model III: 



RUN 



INVENTORY STATUS 



BEGINNING 






ENDING 


DOLLAR 








INVENTORY 


RECEIPTS 


ISSUED 


INVENTORY 


AMOUNT 








120 


40 


45 


115 


598 








Break in 150 








Ready 
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Sates Tax Exercise: Change the output of the sales tax problem so that it Exercises 

will print the amount of sale, the tax, and the total with appropriate head- 
ings. 



RUN 
SALE TOTAL 

AMOUNT TAX SALE AMOUNT 

10 .5 10.5 

Break in 150 

Account Balance Exercise: Change the account balance problem so that 
the heading "Beginning Balance", "Payments", "New Charges" and "End- 
ing Balance" will appear over their respective values. 
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RUN 
BEGINNING 
BALANCE 

60 
Break in 150 

SUMMARY This chapter has sh 


CHARGES 
45 

own you how to u 


PAYMENTS 
60 

se the comDuter for sir 


ENDING 
BALANCE 
45 

riDle calcula- 



tions. The instructions of the BASIC language and the BASIC commands 
are listed below. BASIC commands are used to manipulate a program; they 
have no line numbers. BASIC instructions are used to manipulate data in a 
program; they do have line numbers. 

Additionally, you have learned, not only how to write a program from 
scratch, but also ways of changing your program. The method of program 
modification will be continued throughout this book as the problem require- 
ments and the BASIC capabilities are further developed. 



BASIC Commands introduced: 



NEW Tells the TRS-80 that the operator is about to type in a 

new program. 

LIST Gives a printout (listing) of the program. 

SAVE Puts a copy of the program onto the diskette under pro- 

gram name. Must give program name. 

RUN Executes a program, i.e., tells the computer to perform 

the program instructions. 

LOAD Asks for a copy of a program from the diskette, and 

ntafPS it in rriPrnnru CO that vrrn r*an rr\r\r\ifxr run r^ r li*o + 

it. Must give program name. 

CMD "D:0" Lists the names of programs saved on the diskette. 

(Model III) 
SYSTEM "DIR" 

(Model II) 
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BASIC Instructions Introduced: 



Statement Explanation 

LET X = Y Assigns the value of Y to the field X 

PRINT X,Y Displays the values of X and Y 

PRINT "XYZ" Displays the alphabetic information XYZ 

STOP Tells the system to stop 

END Indicates the physical end of a program 

REM Ignored by computer-remarks for programmer 

Arithmetic operations 

X + Y Add Y to X 

X - Y Subtract Y from X 

X * Y Multiply X by Y 

X / Y Divide X by Y 

X[Y (Model III) Raise X to the Y power 
X A Y (Model II) 



() 



Parentheses may be used to group parts of arith- 
metic statements 



Definitions 
Field Name: 

Program Name: 



A field is named by a letter (A - Z), or by a let- 
ter followed by a number (A - Z, - 9), or by 
two letters, 

A program name may be up to 8 characters; 
the first character must be a letter. Short pro- 
gram names are used in this book to minimize 
typing. 
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PROBLEMS Write programs that will do the following: 

1. Write your name. 

2. Calculate the amount of a sale where 1 75 units are sold at $ 1 . 1 9 per unit. 

3. Calculate the net amount of a sale where 47 units are sold at $4.56 per 
unit and a return is made for 3 units at $6.26 per unit. 

4. Calculate the average sale for a day in which sales were made for 
$126,46, $276.19, $197,50 and $252.71. (Note: Average - the sum of 
daily sales divided by the number of sales.) 

5. Modify Problem 3 above where the output is labelled Net Sale. 

6. Modify Problem 4 above where the output is labelled Average Sale. 

7. Modify the inventory program on page 33 so that the amount is printed 
on a separate line. 

8. Calculate the amount of interest that would be earned in one year on 
$527.26 at 4%, 5%, 6%, 6.5%, and 7% annual interest. Display the results 
on one line and place headings of the interest rate above the interest 
amounts. Also center the heading Interest Calculation in your output. 

9. In economics, the concept of unit elasticity means that the price times 
the quantity is a constant. If a product is manufactured by a company 
whose revenue is $125,000, and output could be 10,000, 8,000, 7,000, or 
6,000 units, what would the price be at the four levels of output? Put 
headings on your output and write the numeric output on one line. 
(Note: pq = r where p - pri ce , q = quantity, r = revenue.) 

10. The formula for compound interest is A - P (1 + i) n where p = prin- 
cipal amount, i = interest rate expressed as a decimal, n = the number 
of time periods, and A = total amount at the end of n periods. Deter- 
mine and label the output for p = $1,250, i == .055, and the number of 
time periods is from 1 to 5, 
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At the end of this chapter you should be able to: 

© Write a program that will take data from the TRS-80 keyboard 
© Write a program that will process many records 
m Test data for reasonableness 



Performance 
Objectives 



In many cases the data values are unknown when the program is written. 
For example, payroll data change from week to week. Consequently, to use 
the program, the data assignments have to be changed. Quite often in busi- 
ness, the person who runs a program is not the person who wrote the pro- 
gram. Therefore making changes, such as changing the assignment 
statements, would be cumbersome and awkward. Isn't there a way to give a 
program to somebody to run so that the person using the program doesn't 
have to know programming? The answer is yes. There is a way for a program 
to get data from a keyboard. In this chapter, we will show you how to enter 
data while a program is running, how to process many records at the same 
time, and how to check field values for reasonableness. 

The payroll function must calculate the employee's gross pay and the em- 
ployee's net pay, the amount of his paycheck. Gross pay is the wages for reg- 
ular and overtime hours. Net pay is gross pay minus deductions. Deductions 
include federal income tax and social security contributions (also known as 
FICA-Federal Insurance Contribution Act). In the following problems you 
are given the tax rate and the social security withholding rate. 

The program should be written so that the data for the hourly rate, the 
number of regular hours worked, and the number of overtime hours worked 
can be entered from a keyboard. The required outputs are gross pay, taxes, 
social security deductions, and net pay. Gross pay is calculated by adding 
regular wages to overtime wages. Regular wages are regular hours worked 
multiplied by the hourly rate. With time-and-a-half for overtime, overtime 
wages are calculated by multiplying overtime hours by 1.5 and then multi- 
plying by the hourly rate. The deductions are calculated by multiplying 
gross pay by the appropriate rate. Net pay is calculated by subtracting the 
deductions from gross pay. The person is identified by name. 



ENTERING 

DATA FROM A 

KEYBOARD 



Problem 
Description 



Problem Summary 



Input 



Social security withholding rate: 6.70% (.067) 
Federal income tax rate: 15% (.15) 
Hourly rate: $3.00 
Regular hours worked: 40 
Overtime hours worked: 2 
Processing 

Multiply regular hours by hourly rate, giving regular wages. Multiply 
overtime hours times 1.5 and then multiply by hourly rate, giving over- 
time wages. Add regular wages to overtime wages, giving gross pay. 
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Multiply gross pay by income tax rate, giving federal income tax deduc- 
tion. Multiply gross pay by social security rate, giving social security de- 
duction. Subtract federal income tax and social security deductions 
from gross pay, giving net pay. 
Output 

Gross pay, payroll deductions, and net pay. 



( s„, ) 


I 


Assign Initial 
Data Values 


i 


/ Print / 
/ Instruction / 
/ for Data / 
/ Entry / 


1 


f 


/ Get Data / 
/ from / 
/ Keyboard / 


} 


' 


Perform 

Required 

Calculations 


1 


/ Print / 
/ Headings / 

/ for / 

/ Output / 


1 


/ Output Gross / 

/ Pay ' / 

/ Deducations, and / 
/ Net Pay / 


1 


r _ . \ 

i iciiiin idtt: 1 



10 REM PROGRAM TO INPUT AND COMPUTE PAY 
100 LET Fl=.15 
110 LET F2=.067 
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120 PRINT "TYPE NAME, HOURLY RATE, REGULAR HOURS, OVERTIME HOURS" 

130 INPUT N$,R,H1,H2 

140 LET G=R*H1+R*H2*1.5 

150 LET DI=G*F1 

160 LET D2=G*F2 

170 LET N=G-D1-D2 

180 PRINT "NAME: " , N$ 

190 PRINT "GROSS", "F.I. T. ,f , "F. I.C. A.", "NET" 

200 PRINT "PAY", "DEDUCTION", "DEDUCTION", "PAY" 

210 PRINT G,D1,D2,N 

220 STOP 

32767 END 



This program contains one new BASIC instruction. Line 130 contains 
the word "INPUT*. This instruction tells the computer to ask for data from 
the keyboard. During program execution, a question mark (?) will be dis- 
played on the screen. Data values are typed, each field separated by a 
comma, after the question mark. One value has to be entered for each field 
of the INPUT statement. In this case, four values separated by commas have 
to be typed, one value each for name, hourly rate, regular hours and over- 
time hours. This program also contains a new type of field name (N$), for 
alphabetic information. In line 130, N$ is used to hold alphabetic informa- 
tion. In line 180 the name is printed. After this program is entered, it can be 
executed. 

Note: When entering dollar amounts, do not use the dollar sign ($) and 
do not use commas to separate thousands. Commas are used to separate 
field values; and the "$" has a special meaning in BASIC. It is used to name 
a field that contains alphabetic or alphanumeric data. The definition of a 
field name remains the same, but a $ is added. 

The arithmetic statement in line 140 computes jspss pay. It also could 
have been written the following way: 

140 LET G = (R*H1) + (R*H2*1.5) 

The parentheses could have been added; but the computation in the pro- 
gram and the one above with parentheses give us exactly the same result. 
Arithmetic statements are performed in BASIC in the following sequence: 
First, exponentiation; next, division or multiplication; and last, subtraction 
or addition. In the program, G would be calculated in the following way: H2 
is multiplied by 1.5, and this result is multiplied by R; HI is multiplied by 
R, and this result is then added to the first result, giving us G. 



RUN 
TYPE NAME, HOURLY RATE, REGULAR HOURS, OVERTIME HOURS 
?JONES,3.00,40,2 
NAME: JONES 
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GROSS 




F.I.T. 


F.I.C.A. 


NET 


PAY 




DEDUCTION 


DEDUCTION 


PAY 


129 




19.35 


8.643 


101.007 


Break 


in 220 








READY 










> 










>SAVE 


11 PAY 4" 









Notice that the name, the hourly rate, the regular hours, and the over- 
time hours have to be typed in that order. The program will take the first 
typed value and assign it to the first field in the input statement, assign the 
next value to the next field, and so on, until it has assigned a value to each 
field. With the capability of entering data during program execution, it is not 
necessary for you, the programmer, to know what the specific data values 
will be. You can write the logic of processing and use it for different data 
values. By this approach you achieve a generally more useful program, since 
changes in data values do not require changes in the program. However, the 
person who uses the program must know what the data values are and the 
order in which they must be entered. 

Examples Invoice Example: This example deals with invoice calculations. The data to 

be input during execution are the number of units sold and the price per unit 
for an item. The output desired is the dollar amount of the invoice. 

Problem Summary 
Input 

Number of units sold: 50 

Price per unit: $15 
Processing 

Multiply number" of units sold by price per unit, giving dollar amount of 

invoice. 

Output 

Dollar amount of invoice 



10 REM DETERMINE DOLLAR AMOUNT OF INVOICE 

100 PRINT "TYPE NUMBER OF UNITS, PRICE PER UNIT 1 

110 INPUT U,P 

l^U LET U^U^P 

130 PRINT "AMOUNT" 

140 PRINT D 

150 STOP 

32767 END 

READY 

> 
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>SAVE "INVCEB" 

READY 

> 

> 

>RUN 

TYPE NUMBER OF UNITS, PRICE PER UNIT 

? 50,15.00 

AMOUNT 

750 
Break in 150 

The flowchart to derive this program follows. 

f Start J 



Print Instructions 
for Data Entry I 



Get Data from 
Keyboard 



Calculate Invoice 
Amount 



Print Headings 
for Amount 



Print Invoice 
Amount 



( Terminate 1 



Inventory Example: This problem requires the calculation of ending inven- 
tory. The number of units in beginning inventory, the number of units re- 
ceived into inventory and the number of units released from inventory are 

given. 
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Problem Summary 

Input 

Number of units in beginning inventory: 120 
Number of units received into inventory: 40 
Number of units released from inventory: 45 

Processing 

Add number of units received to inventory; subtract number of units re- 
leased, giving ending inventory. 

Output 

Number of units in ending inventory 



10 REM CALCULATE ENDING INVENTORY 

100 PRINT'TYPE BEGINNING UNITS, UNITS RECEIVED, UNITS RELEASED 11 

110 INPUT B,R1,R2 

120 LET E=-B+Rl-R2 

130 PRINT "ENDING INVENTORY" 

140 PRINT E 

150 STOP 

32767 EM) 



RUN 
TYPE BEGINNING UNITS, UNITS RECEIVED, UNITS RELEASED 
? 120,40,45 
ENDING INVENTORY 

115 
Break in 150 

Exercises Commission Exercise: Write a program to calculate the commission that a 
salesman has earned. The data are gross sales and the commission rate; both 
should be input during execution with instructions on the order of input. La- 
bel the output "Commission." 

Problem Summary 

Input 

Gross sales: $12000 
Commission rate: 0.05 

Processing 

Multiply gross sales by commission rate, giving dollar amount of com- 
mission. 

Output 

Dollar amount of commission 
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Program: 



Run your program, and see if your output matches the following output. 



TYPE GROSS SALES, COMMISSION RATE 

? 12000 f .05 

COMMISSION 

600 
Break in 150 



Account Balance Exercise: Retail merchants have to update customer ac- 
counts. The update consists of adding new charges to the account balance 
and subtracting customer payments from the account balance. Write a pro- 
gram that will perform these tasks to arrive at an ending balance for the cus- 
tomer. The data should be input during execution. Label the output 
"Account Balance." 

Problem Summary 
Input 

Starting balance: $60 
Customer payments: $60 
New charges: $45 

Processing 

Subtract customer payments from starting balance and add customer 

charges to balance, giving ending balance. 
Output 

Ending balance 
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Program: 



Run your program and check your ending balance with the ending balance 
given below. 

TYPE STARTING BALANCE, CUSTOMED PAYMEOT,NEW CHARGES 
? 60,60,45 
ACCOUNT BALANCE 

45 
Break in 150 



PROCESSING 

MANY 

RECORDS 



Let's assume that you have collected the weekly payroll data. You have a 
stack of time cards, with each card containing the weekly data on a person. 
Depending on the size of the organization, the stack of time cards may con- 
tain anywhere from 20 to 2,000 records. Therefore, to do the calculations for 
the weekly payroll, you would have to run your payroll program 20 to 2,000 
times. In this section we will show you how to write a nroeram to process 
many records in one run. 

The assignment for this problem is similar to the previous problem. But 
instead of data for only one person, the weekly time records of many people 
have to be processed. The data are listed in Table 3-1. A program for 
processing all the data in one run follows. 
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( Start J 



Assign Permanent 
Data Values 



Print Instruction 

for Data Entry 

and Get Input Data 



Calculate Gross Pay, 

Deducations, and 

Net Pay 



Print Headings 
for Output 



f Output Gross Pay, 

Deductions and 

Net Pay 



Weekly Payroll Data 



Table 3-1 







Regular 


Overtime 




Hourly 


Hours 


Hours 


Name 


Rate 


Worked 


Worked 


1. Adams 


5.00 


40 





2. Baker 


5.60 


40 


4 


3„ Cohen 


6.25 


38 





4. Johnson 


3.75 


40 





5. Tanner 


4.25 


36 






10 REM PROGRAM TO INPUT AND COMPUTE PAY 

100 LET Fl=.15 

110 LET F2=.067 

120 PRINT "TYPE NAME, HOURLY RATE, REGULAR HOURS, OVERTIME HOURS" 

130 INPUT N$,R,H1,H2 
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140 LET G=R*H1+R*H2*1.5 

150 LET D1=G*F1 

160 LET D2=G*F2 

170 LET N=G-D1~D2 

180 PRINT "NAME: " , N$ 

190 PRINT "GROSS", "F.I.T.", "F.I.C.A. " , "NET" 

20 PRINT "PAY" /'DEDUCTION" /'DEDUCTION" /'PAY" 

210 PRINT G,Dl,D2,N 

215 GOTO 120 

220 STOP 

32767 END 



This program contains one new BASIC instruction, "GOTO 120," 
found in line 215, The instruction means exactly what it says: When the 
computer reaches line 215, it is instructed there to go back to line 120. When 
the program is run, the computer executes lines 100 to 210 in sequence; 
when it reaches line 215, it goes back to line 120 and executes from 120 on- 
wards. 

This repetition is shown in the flowchart by the arrow that takes the 
flow back to steps that have already been executed. Thus the computer 
effectively processes one payroll record, and, since more than one employee 
is involved, it goes back to get the next employee record. To stop the pro- 
gram, after the last employee record has been processed, press the BREAK 
key. The message 

BREAK IN 130 
READY 

will appear on the screen on the Model III. 

For the Model II, when the BREAK key is pressed, the following 

appears: 

A C 

BREAK IN 130 

READY 

The logical end of the program is, therefore, entered during execu- 
tion—after the last piece of data has been processed and more data is 
requested. 

Since this program is only a one line change from the previous program, 
the modification is accomplished speedily. The change and execution actions 

LOAD "PAY 4" 
READY 
> 

>215 GOTO 120 
> 
>SAVE "PAYS" 
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READY 

> 

>RUN 

TYPE NAME, 

? ADAMS, 5. 

NAME: 

GROSS 

PAY 
200 

TYPE NAME, 

? BAKER, 5. 

NAME: 

GROSS 

PAY 
257 .6 

TYPE NAME, 

? COHEN, 6. 

NAME: 

GROSS 

PAY 

237.5 
TYPE NAME, 

? JOHNSON, 
NAME: 
GROSS 
PAY 

150 
TYPE NAME, 
? TANNER, 4 
NAME: 
GROSS 
PAY 

153 
TYPE NAME, 



HOURLY RATE, REGULAR 
,00,40,0 

ADAMS 
F.I.T. 
DEDUCTION 
30 
HOURLY RATE, REGULAR 
60 ,40,4 

BAKER 
F.I.T. 
DEDUCTION 
38.64 
HOURLY RATE, REGULAR 
25,38,0 

COHEN 
F.I.T. 
DEDUCTION 
35.625 
HOURLY RATE, REGULAR 
3.75,40,0 

JOHNSON 
F.I.T. 
DEDUCTION 
22.5 
HOURLY RATE, REGULAR 
.25,36,0 

TANNER 
F.I.T. 
DEDUCTION 
22.95 
HOURLY RATE, REGULAR 



HOURS, OVERTIME HOURS 



F.I .C.A. NET 

DEDUCTION PAY 

13.4 156.6 

HOURS, OVERTIME HOURS 



F.I. C.A. NET 

DEDUCTION PAY 

17.2592 201.701 

HOURS, OVERTIME HOURS 



F.I. C.A. NET 

DEDUCTION PAY 

15.9125 185.963 

HOURS, OVERTIME HOURS 



F.I. C.A. NET 

DEDUCTION PAY 

10.05 117.45 

HOURS, OVERTIME HOURS 



F.I. C.A. NET 

DEDUCTION PAY 

10.251 119.799 

HOURS, OVERTIME HOURS 



Break in 130 



Invoice Example: In this problem we want a heading for the invoice dollar 
amount and to process four records. The remaining problem specifications 
are unchanged. The procedure for making this modification is given below. 



Examples 



Input 


Probh 


Units 




sold 


Price per unit 


50 


$15.00 


20 


$14.00 


120 


$ 1.20 


30 


$ 6.00 
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Processing 

Perform calculations for four records. 
Output 

Unchanged 



LOAD "INVCE3" 
READY 
> 

>LIST 

10 REM DETERMINE DOLLAR AMOUNT OF INVOICE 
100 PRINT "TYPE NUMBER OF UNITS, PRICE PER UNIT" 
110 INPUT U,P 
120 LET D=U*P 
130 PRINT "AMOUNT" 
140 PRINT D 
150 STOP 
32767 END 
READY 
> 

>145 GOTO 100 
> 

>SAVE "INVCE4" 
READY 
> 

>RUN 

TYPE NUMBER OF UNITS, PRICE PER UNIT 
? 50,15.00 
AMOUNT 

750 
TYPE NUMBER OF UNITS, PRICE PER UNIT 
? 20,14.00 
AMOUNT 

280 
TYPE NUMBER OF UNITS, PRICE PER UNIT 
? 120,1.2 
AMOUNT 

144 
TYPE NUMBER OF UNITS, PRICE PER UNIT 
? 30,6 
AMOUNT 

180 
TYPE NUMBER OF UNITS, PRICE PER UNIT 
? Break in 110 



Sales Tax Example: Many states and municipalities require that a sales tax 
be added to the purchase price of an item. The initial data for this problem 
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are a dollar amount of taxable sales and the tax rate. The desired output is 
the total amount of the sale that the customer has to pay. Six records should 
be processed. 

Problem Summary 
Input 

Dollar amount of sale: $10.00, $42.00, $57.00, $2.50, $726.32, $9.27 
Tax rate: A% 

Processing 

Multiply tax rate by the dollar amount to get the taxes; add the taxes to 
dollar amount, giving the total amount of sale. 

Output 

Total sale 



100 PRINT "TYPE AMOUNT OF SALE* 

110 INPUT S 

120 LET R=.04 

130 LET T=R*S 

140 LET A=S+T 

150 PRINT "TOTAL SALE" 

160 PRINT A 

170 GOTO 100 

180 STOP 

32767 END 

READY 

> 

>RUN 

TYPE AMOUNT OF SALE 

? 10.00 

TOTAL SALE 

10.4 
TYPE AMOUNT OF SALE 
? 42.00 
TOTAL SALE 

43.68 
TYPE AMOUNT OF SALE 
? 57 
TOTAL SALE 

59.28 
TYPE AMOUNT OF SALE 
? 2.50 
TOTAL SALE 

2.6 
TYPE AMOUNT OF SALE 
? 726.32 
TOTAL SALE 

755.373 
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TYPE AMOUNT OF SALE 
? 9.27 
TOTAL SALE 

9.6408 
TYPE AMOUNT OF SALE 



Break in 110 



Exercise Account Balance Exercise; Change the Account Balance Problem so that 
five records are input. 



Problem Summary 




Input 




Starting balance 60 


130 59.95- 22.50 37.62 


Customer payment 60 


120 59.95 22.50 0.00 


New charges 45 


60 39.75 0.00 42,97 


Processing 




Perform calculations for five records. 




Output 




Unchanged 





Program: 



TYPE STARTING BALANCE, CUSTOMER PAYMENT, NEW CHARGES 
? 60,60,45 
ACCOUNT BALANCE 
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45 
TYPE STARTING BALANCE, CUSTOMER 
? 130,120,60 
ACCOUNT BALANCE 

70 
TYPE STARTING BALANCE, CUSTOMER 
? 59.95,59.95,39.75 
ACCOUNT BALANCE 

39.75 
TYPE STARTING BALANCE, CUSTOMER 
? 22.50,22.50,0.00 
ACCOUNT BALANCE 


"TYPE STARTING BALANCE, CUSTOMER 
? 37.62,0,42.97 
ACCOUNT BALANCE 

80.59 
TYPE STARTING BALANCE, CUSTOMER 
? 

Break in 110 



PAYMENT, NEW CHARGES 



PAYMENT, NEW CHARGES 



PAYMENT, NEW CHARGES 



PAYMENT, NEW CHARGES 



PAYMENT, NEW CHARGES 



When a program is written, it is necessary to make sure it performs its in- 
tended function. In the examples given so far, the numbers have been suffi- 
ciently simple so that the calculations can be checked by hand. It is good 
practice to check all calculations of a program whenever possible. 

Errors do occur in complex programs. Errors crop up in the specifica- 
tion of a problem: For example, if salesman commissions are defined as a 
percentage of gross margin (sales minus cost of goods sold), then a specifi- 
cation of commission on the basis of gross sales would be in error. Errors 
can happen when the program is first written: For example, if receipts were 
subtracted from rather than added to beginning inventory, then a design 
error would exist. Errors can happen when the program is entered into the 
computer: Hitting the wrong key on the keyboard can cause many prob- 
lems. These errors, called syntax errors, are caught when the program is 
first run. Other errors will be caught when the program tries to do some- 
thing and can't. Logical errors like these will show up during execution. 

But many errors, such as the erroneous calculation of inventories will 
not give any error messages. In those cases it is necessary to do the calcula- 
tions by hand to make sure that the output is correct. However, even hand 
calculation will not catch problem specification errors. The salesman com- 
mission error- the calculation of commission on the basis of gross sales in- 
stead of gross margin-would require a comparison of the specifications with 
the actual operations of the company. 



PROGRAM 
VERIFICATION 



Errors in programs, called "bugs", bedevil even experienced programmers. HOW TO 

But the largest number of errors in data processing is caused by bad data. CATCH SOME 
This source of errors has been immortalized by the phrase "garbage in, gar- ERRORS IN DATA 
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w Value 


High Value 


3.05 


10.00 





40 





20 



bage out." In this section we show you how to catch some of the "garbage 
in." The concept is known as "range checking." 

Range checking assumes that you know the permissible range of data 
values. Range checks make sure that data are not too high or too low. But 
range checking can not catch errors when the erroneous data is within the 
range. A transposition error (for example, $3.69 is entered incorrectly as 
$3.96) will not be caught by range checks if the erroneous data is within 
range. In the case of the payroll example, we know that regular hours 
worked cannot exceed 40 hours. Therefore, we can check to make sure that 
values for regular hours worked are not larger than 40. The permissible 
ranges for the data fields are: 

Field 
Hourly rate 
Regular hours 
Overtime hours 

Checking range values of input fields is only part of the task. Once an error 
has been found, it must be identified so that the keyboard operator can cor- 
rect the mistake. By accident, such as misinterpreting handwritten numbers, 

or through carelessness, erroneous data may have been typed. Range checks 
help to catch input that is obviously wrong. But the operator also needs to 
be told that the input is wrong. Hence, appropriate error messages must be 
printed. Following are flowcharts (Figs. 3-1 and 3-2) and a program that 
perform these additional requirements: 



10 REM PROGRAM TO INPUT AND COMPUTE PAY 

100 LET Fl=.15 

110 LET F2=.067 

120 PRINT "TYPE NAME, HOURLY RATE, REGULAR HOURS, OVERTIME HOURS 

130 INPUT N$,R,H1,H2 

131 IF R<3.05 THEN 138 

132 IF R>10 THEN 138 

133 IF HK0 THEN 138 

134 IF Hl>40 THEN 138 

135 IF H2<0 THEN 138 

136 IF H2>20 THEN 138 

137 GOTO 140 

138 PRINT "ERROR IN INPUT DATA" 

139 GOTO 120 

140 LET G=R*H1+R*H2*1„5 
150 LET D1=G*F1 

160 LET D2=G*F2 

17 LET N-G-D1-D2 

180 PRINT "NAME; " , N$ 

190 PRINT "GROSS", "F.I.T.", "F.I.C.A. " , "NET" 
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200 PRINT "PAY "/'DEDUCTION "/'DEDUCTION"," PAY" 
210 PRINT G,D1,D2,N 
215 GOTO 120 
220 STOP 
327 67 END 



The difference between this program and the previous program on page 
49 is in lines 131 to 139. Here we test the data with a series of IF statements. 
An IF statement compares two values. 



( Start J 



Assign Permanent 
Data Values 



r Print Instruction 
"^ for Data Entry 
and 
Get Input Data) 



Print 

Error f<- 

Message 




Calculate Gross 

Pay Deductions 

and Net Pay 



Print Headings 
for Output 



Output Gross 

Pay, Deductions, 

and Net Pay 



Flowchart of Range Test Program 



Figure 3-1 
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Print Instruction 
for Data Entry 

and 
Get Input Data 




Calculate Gross 

Pay Deductions 

and Net Pay 



Print 
-$*-/ Error 

Message 



Figure 3-2 



Range Tests: 
Expansion of Decisionals Data Within Range?" 
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The six comparison operators are: 



= Equal 

< Less than 

< = Less than or equal 

> Greater than 

> = Greater than or equal 

< > Not equal 



The comparison is followed by THEN and a line number. The "THEN line 
number" means GOTO the line number indicated if the comparison is true. 
If the comparison is not true, the next line is executed (see Fig. 3-2). Fields 
are compared with values or with other fields. Thus we can read line 131 as, 
"IF the hourly rate (R) is less than 3.0.5 THEN go to line 138." Similarly, 
line 132 means: "IF the hourly rate (R) is greater than 10 THEN go to line 
number 138." In line 138 an error message is printed. The error message is 
followed by a return to the instruction (line 120) for data entry. 

Notice the GOTO 140 in line 137. This GOTO directs control to line 
140 for the processing of valid data. When the computer reaches line 137, 
the data must be valid because it passed all the tests in lines 131 to 136. If 
line 137 did not exist, then valid records would also print the error message. 

These changes to the old program are shown below: 



LOAD "PAYS" 
READY 

>131 IF R<3.05 THEN 138 
>132 IF R>10 THEN 138 
>133 IF HK0 THEN 138 
>134 IF Hl>40 THEN 138 
>135 IF H2<0 THEN 138 
>136 IF H2>20 THEN 138 
>137 GOTO 140 

>138 PRINT "ERROR IN INPUT DATA" 
>139 GOTO 120 
>SAVE "PAY 6" 
READY 
> 

>LIST 

10 REM PROGRAM TO INPUT AND COMPUTE PAY 
100 LET Fl=.15 
110 LET F2=.067 
120 PRINT "TYPE NAME, HOURLY RATE, REGULAR HOURS, OVERTIME HOURS" 
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130 INPUT N$,R,H1,H2 

131 IF R<3.05 THEN 138 

132 IF R>10 THEN 138 

133 IF HKO THEN 138 

134 IF Hl>40 THEN 138 

135 IF H2<0 THEN 138 

136 IF H2>20 THEN 138 

137 GOTO 140 

138 PRINT "ERROR IN INPUT DATA" 

139 GOTO 120 

140 LET G=R*H1+R*H2*1.5 
150 LET Dl=G*Fl 

160 LET D2=G*F2 

170 LET N=G-D1-D2 

180 PRINT "NAME: " r N$ 

190 PRINT "GROSS H f "F.I.T.","F.I.C.A. i, / ,, NET" 

200 PRINT " PAY ", "DEDUCTION", "DEDUCTION", "PAY" 

210 PRINT G,D1,D2,N 

215 GOTO 120 

220 STOP 

32767 END 



Example Inventory Example: We want to modify the inventory example in Chapter 2 

to process three records and check the appropriateness of their values. The 
high values were determined by examining the capacity of the company to 
store and handle inventory. The low values cannot be negative, and the low- 
est cost of an item of inventory is $1.00. 

Note: The output of this program was produced on a printer. To use a 
printer, replace all PRINT'S with LPRINT. 



Problem Summary 
Input 

Number of units at beginning: 
Number received into inventory: 
Number of units issued from inventory: 

Cost per unit: 

Processing 

Test the data for reasonableness. 



120 


20 


60 


40 


70 


20 


45 


100 


80 


$5.00 


$7.00 


$3.25 
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-w Value 


High Value 





10,000 





3,000 





* 


$1.00 


$10.00 



Data Ranges 

Field 

Units at Beginning 
Units Received 
Units Issued 

Cost 

*Number of Units in Inventory = Units at Beginning + Units Received. 
Output 

Unchanged 



10 REM THIS PROGRAM CALCULATES ENDING INVENTORY VALUE 

100 PRINT"TYPE BEGINNING UNITS, UNITS RECEIVED, UNITS RELEASED" 

105 PRINT"AND COST, SEPARATED BY COMMAS" 

110 INPUT B,R1,R2,C 

111 IF B<0 THEN 120 

112 IF B>10000 THEN 120 

113 IF RK0 THEN 120 

114 IF Rl>3000 THEN 120 

115 IF R2<0 THEN 120 

116 IF R2XB+R1) THEN 120 

117 IF C<1.00 THEN 120 

118 IF OI0.00 THEN 120 

119 GOTO 130 

120 PRINT "ERROR IN INPUT DATA" 

121 GOTO 100 

130 LET E=B+R1-R2 

134 LET D=C*E 

136 PRINT " "," "/'INVENTORY STATUS" 

138 PRINT "BEGINNING"," " , " ", "ENDING" , "DOLLAR" 

140 PRINT "INVENTORY" , "RECEIPTS" , "ISSUED" , "INVENTORY" , "VALUE" 

142 PRINT B,R1,R2,E,D 

143 GOTO 100 
150 STOP 
32767 END 
Ready 

> 

RUN 
TYPE BEGINNING UNITS, UNITS RECEIVED, UNITS RELEASED 
AND COST, SEPARATED BY COMMAS 
? 120,40,45,5.00 

INVENTORY STATUS 
BEGINNING ENDING DOLLAR 

INVENTORY RECEIPTS ISSUED INVENTORY VALUE 

120 40 45 115 575 

TYPE BEGINNING UNITS, UNITS RECEIVED, UNITS RELEASED 
AND COST, SEPARATED BY COMMAS 
? 20,70,100,7.00 
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ERROR IN INPUT DATA 

TYPE BEGINNING UNITS, UNITS RECEIVED, UNITS RELEASED 

AND COST, SEPARATED BY COMMAS 

? 60,20,80 ,3.25 

INVENTORY STATUS 
BEGINNING ENDING 

INVENTORY RECEIPTS ISSUED INVENTORY 

60 20 80 

TYPE BEGINNING UNITS, UNITS RECEIVED, UNITS RELEASED 
AND COST, SEPARATED BY COMMAS 
? 

Break in 110 



DOLLAR 
VALUE 




Review of 

Validity Check 

Operations 

and Deleting 

Obsolete 

Programs 



This sequence of actions starts with the sign-on procedure. The old program 
is copied from the diskette and placed into the memory with the command 

LOAD "PAYS" 

When the system indicates that it is ready with a prompt, the new lines 
between 130 and 140 are typed. The SAVE and LIST commands save a copy 
of the modified PAY6 and provide a display of the program so that you can 
visually verify your modifications. If an error has occurred, you can call the 
old PAYS program and make the modifications again. This same sequence 
is used for the inventory example. 

Note that only the program in memory is changed. The diskette is not 
affected unless you SAVE a program. SAVE copies a program from the 
memory to the diskette. You can find out what programs are stored for you 
on the diskette by typing the directory command. 

You can also delete programs from the diskette with the KILL com- 
mand. Old programs that have been superseded by newer programs should 
be removed. Look at the directory. See if you have programs that you no 
longer need. If there are obsolete programs in your catalog that you want to 
remove, then type KILL followed by the program name in quotation marks. 
When the system responds with the prompt character, the program has been 
deleted from the diskette. 



SUMMARY This chapter covered four new techniques: 

© How to get data from a keyboard 
• How to process many records 
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® How to check records for reasonableness 
• How to delete obsolete programs 

All these techniques make your programs more realistic because they add 
generality and flexibility. No longer do you need to know specific data val- 
ues when you write a program. The specific data can be entered when the 
program is used. No longer does a program have to be re-run for each re- 
cord. A loop controlled by a GOTO can process many records in one run. 
And with range checks, some of the errors in input data will be caught. 
Therefore, programs written this way use the computer more flexibly and 
provide important assistance to the users. 

BASIC Commands Introduced: 



KILL 



Eliminates a program from the diskette. Must use 
program name. 



BASIC Instructions Introduced: 



Statement 
INPUT X,Y 

INPUT X$,Y$ 

GOTO nnn 

IF x THEN nnn 

Comparison operators 

X = Y 

X< Y 

X< - Y 

X> Y 

X> - Y 

X<> Y 



Explanation 

Takes numeric values for fields X and Y from the 
keyboard. 

Gets alphabetic values for fields X$ and Y$ from 
the keyboard. 

Tells the system to go to line number nnn for the 
next instruction.. 

If x is true then go to line nnn for the next instruc- 
tion, otherwise (if x is false) go to the next line in 
sequence. 

Result of comparison 

Result is true if X equals Y 

Result is true if X is strictly less than Y 

Result is true if X is less than or equal to Y 

Result is true if X is strictly greater than Y 

Result is true if X is greater than or equal to Y 

Result is true if X is not equal to Y 



Rather than stating the comparison result as true or false, yes or no may be 
used. 
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PROBLEMS Write a program to do the following: 

1. Modify the invoice problem in this chapter to check the value of the 
price per unit. The price should not be less than zero or more than $20. 
Data to be input at execution time 

Units 20 12 34 27 100 

Price 1.50 21.22 14.50 1.95 156 

2. Modify the commission problem in this chapter to check the values of 
gross sales and commission rate. Gross sales may range from to 
$100,000. The commission rate varies from 2% to 6%. Data to be input 
at execution time 

Gross sales 2,476 29,650 400,000 97,727 

Commission rate 4% 4.2% 2.1% 6.7% 

Error messages should indicate whether the error detected is in 
gross sales or the commission rate. 

3 Modify the payroll example on page 56 to output specific error messages 
such as "HOURLY RATE TOO HIGH", "HOURLY RATE TOO 
LOW", "HOURS TOO HIGH", "HOURS TOO LOW", "OVERTIME 
TOO HIGH", "OVERTIME TOO LOW". Use the following data: 



Name 


Hourly Rate 


Regular Hours 


Overtime 


Able 


$1.95 


40 





Baker 


2.96 


42 


26 


Charlie 


11.65 


-4 





Fern 


5.50 


40 


25 


Graak 


7.20 


40 


10 



In Problem 3 above, a single error will result in not processing a per- 
son's data. Modify your program so that multiple errors in a person's 
data will be detected and result in appropriate error messages. Use the 
same data. Note: Process invalid records. 



iviouny uic mvcmuxy example on page .jo lu uuiput ajjeemw wiui 

messages such as "BEGINNING INVENTORY TOO HIGH", "BE- 
GINNING INVENTORY TOO LOW", "UNITS RECEIVED TOO 
HIGH", "UNITS RECEIVED TOO LOW", "UNITS ISSUED TOO 
HIGH", "UNITS ISSUED TOO LOW", "COST TOO HIGH", "COST 
TOO LOW". Use the following data: 
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Beginning Units Units 
Inventory Received Issued Cost 



100 


20 


60 


$ 4.00 


20 


3,500 


4,000 


$ .75 


500 


200 


600 


$12.00 


20 


-40 


60 


$ 1.50 


-100 


200 


700 


$14.00 



6. Modify your program in Problem 5 so that multiple errors in a data re- 
cord (a line of input) will be indicated. Use the same data. Note: Process 
invalid records. 



4 / Sequential Files 



67 



Setting up a File / 69 



At the end of this chapter you should be able to: Performance 

Objectives 
© Use files to store data 

• Write a program that will put data in a file 

Write a program that will read data from a file 

• Find a record in a file 

To use a computer, it is necessary to get data into the computer. In many 
cases when the amount of data is large, a computer file has to be set up to 
store the data. With files, the same data can be used again and again. 

With files, entry of data is separated from the processing of data. There- 
fore, the data can be entered into a computer file at one time to be processed 
later. 

But the files that a computer uses are different from the files used by 
people. Data is stored in a computer file in electromagnetic form. And peo- 
ple can't read electromagnetic data directly. 

It is necessary to write a program to enter data into files and to write 
programs that read data from files. In this chapter, we will show you how to 
set up a file for computer processing. The type of file used is a sequential file. 
The file is called a sequential file because it is organized in a particular se- 
quence, one record next to another. In a later chapter another type of file, a 
direct access file, will be discussed. 

Note for the Model II: In order to run programs with files, you must make 
a simple modification to the sign-on procedure. Up to this point the last step 
of the sign-on was to type BASIC; now you must type BASIC-F:n and press 
"ENTER". The n is the number of files that you will use in a program. 

The payroll problem will illustrate the capabilities of BASIC to handle files. SETTING UP 
In this case, we want to write a program that lets a data entry A FILE 

operator enter data into a file. Later, we will use the data in the file for cal- 
culations and reports. When files are used, only one record at a time is read 
or written. 

The payroll data for this problem consists of records with the following 
fields. Field names are in parentheses. 

• Employee number (N) 

• Employment department number (D) 

• Employee name (N$) 

m Hourly rate of pay (H) 
© Regular hours worked (R) 

• Overtime hours worked (V) 

The processing consists of entering data through a keyboard and placing it 
in a file. For output, messages telling the operator what to do are necessary. 
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Problem Summary 

Input 

Employee number 

Employee department number 

Employee name 

Hourly rate 

Regular hours worked 

Overtime hours worked 



Valid Range 

100 to 999 

1 to 20 

anything 

3.05 'to 15.00 

to 40 

0to20 



Processing 

Take data from a keyboard and place valid data in a file. Check the data 

for validity. 
Output 

Instructions for operator and data on a computer file. 

Therefore the program has to be able to: 

1 . Set up a new file (open it). 

2. Get data from the keyboard when an operator types it. 

3 . Write the data into a file that the computer can use. 

4. Stop when all the data has been entered. 

See the flowchart (Fig. 4- 1) and program to do all of these actions below: 



10 REM THIS PROGRAM TAKES DATA FROM THE KEYBOARD AND 

20 REM PLACES IT IN THE EMPLOY FILE 

10 OPEN "0" ,1," EMPLOY" 

110 PRINT "TYPE EMPLOYEE NUMBER, DEPARTMENT NUMBER, EMPLOYEE NAME" 

120 PRINT "HOURLY REATE , REGULAR HOURS" 

130 PRINT "OVERTIME HOURS, SEPARATED BY COMMAS" 

140 PRINT "WHEN FINISHED, TYPE 99 , 99 , AA , 99 , 99 , 99 " 

150 INPUT N,D,N$,H,R,V 

160 IF N=99 THEN 400 

170 IF N<100 THEN 290 

180 IF N>999 THEN 290 

190 IF D<1 THEN 290 

200 IF D>20 THEN 290 

210 IF H<3.05 THEN 290 

220 IF H>15.00 THEN 290 

230 IF R<0 THEN 290 

240 IF R>40 THEN 290 

250 IF V<0 THEN 290 

960 TT? \7>>0(\ THRN 9QD 

270 PRINT #1, N;D;N$;",";H;R;V 

280 GOTO 110 

290 PRINT "ERROR IN INPUT DATA, PLEASE RETYPE" 

300 GOTO 110 

400 CLOSE #1 

32767 END 
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YES 




Ck 


)se 






Fiie 






1 


r 




( Terminate J 



Flowchart for Setting Up a File 

This program contains three new statements: 

• Line 100 opens a file. 

® Line 270 writes data into a file. 

® Line 400 closes a file. 

Let's look closely at these three statements. 

Open a file: Line 100 is OPEN "O'M, "EMPLOY". This statement is used 
to open a file for writing. It creates the file "EMPLOY" if it has not been 
OPENed before. The statement says to open a file, for writing, that the 



Figure 4-1 
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number of the file is 1 , and that the name of the file is "EMPLOY". The "O" 
in the statement stands for output. The data will be written "out" to the 
diskette. The one (1) is the number of the file. The file number is necessary 
inside the program to identify the file. Line 100, therefore, links the compu- 
ter file name with the file number. 

The file name is limited to 8 alphanumeric characters. The first char- 
acter must be alphabetic. Examples of valid and invalid file names are 
shown in the following list. (Note: The rules for filenames are the same as 
the rules for program names!) 

Example Explanation 

A Valid file name. You can use up to 8 characters. 

Al Valid file name. Numbers are also alphanumeric charac- 

ters. The file names A and Al are not recommended since 
they may be confused with field names, 

LIST Valid file name; but not recommended since it is a BASIC 

command and therefore a possibility of confusion exists. 

ACCREC Valid hie name. Good choice of a name since ACCREC for 
Accounts Receivable has mnemonic (helps you remember) 

characteristics. 

2PAYROLL Invalid file name. File names must begin with a letter. 

After you have run this program you will find that your directory con- 
tains not only programs but also the data file "EMPLOY". 

Write into a file: Line 270 PRINT #1,N;D;N$;",";H;R;V uses the file 
number, one (1) in this case, preceded by a "#" symbol. The # symbol means 
that the number following it is a file identifier number. A file number is 
used for brevity -it is shorter to use a file number than to refer to a file by 
its name ("EMPLOY"). Valid file numbers are 1 , 2, and 3. 

The PRINT in line 270 tells the computer to write. The "#1" tells it 
where to write and the list of fields tells it what to write. The fields are 
always separated by semicolons with one exception. If a field contains 
alphabetic data (N$), it must be followed by a semicolon and quotation 
mark, comma, quotation mark, semicolon (;",";). This is necessary since 
the computer treats numeric fields differently from alphabetic fields. 

Close a file; Line 400 CLOSE #1 closes the file. The CLOSE tells the 
computer that you are finished with the file. 

When you use computer files, think about a file cabinet in an office. In 
order to put data into a fije cabinet, you have to open the file drawer 



Setting up a File / 73 



(OPEN), place the information in the drawer (PRINT), and, finally, close 
the drawer (CLOSE). 

One last explanation before you try this program. In line 140 the opera- 
tor is instructed to type "99,99,AA,99,99,99" when no more data has to be 
entered. This entry generates a last record. In effect, we have a dummy re- 
cord. It is used to indicate that the data input to the file is finished. 

But the computer doesn't know that you have chosen a record with 99's 
and an AA in each field to end the data. This record is called a dummy re- 
cord since it does not contain usable payroll data. To the machine, it looks 
like any other record. We know that this record indicates the end of data 
because that's what we told the operator to do in line 140 in order to end 
data input. We could have told the operator to enter any other values in line 
140 to indicate the end of data. But whatever we told the operator, we have 
to pick carefully. The dummy record should be invalid so that it stands out. 
It should be the same every time so that when the data changes, we don't 
have to rewrite the program. 

The instruction to type 99's and AA serves to end the data for the pay- 
roll problem. When such a record is reached, we know that it is time to close 
the file since data entry is finished. The end of data is tested in line 160. If N, 
the field for employee number, has a 99 then we assume that no more data 
will be forthcoming, and we go to line 400 to close the file. 

Sign-on the system and type the program. Once you have finished typ- 
ing the program and given the RUN command, enter the payroll data shown 
below in Table 4~ 1 . 







Payroli Data 






Tabie 4-1 


Employee 


Department 


Employee 


Hourly 


Regular 


Overtime 




Number 


Number 


Name 


Rate 


Hours 


Hours 




101 


1 


Adams 


$5.00 


40 







103 


12 


Baker 


5.60 


40 


4 




104 


17 


Brave 


4.00 


40 


2 




108 


16 


Cohen 


6.25 


38 







172 


2 


Johnson 


3.75 


40 







198 


1 


Tanner 


4.25 


36 







202 


16 


Wilson 


4.00 


40 







206 


7 


Lester 


5.25 


40 







255 


12 


Schmidt 


5.60 


40 


4 




281 


12 


Miller 


6.00 


40 







313 


7 


Smith 


4.25 


40 


4 




347 


12 


Gray 


6.00 


38 







368 


1 


Weaver 


3.50 


40 


2 




422 


1 


Williams 


4.00 


40 








74 / Sequential Files 



Example 



Better yet, write the program and talk somebody else into entering the data 
from the keyboard. By having somebody else enter the data, you have a 
closer approximation to how things are actually done in organizations. If an 
error occurs during data entry, then you must stop the program and run it 
again from the beginning. So be careful. In the last section of this chapter 
you will learn how to correct records in a data file. 



inventory Example: Create a file called "INV" with five fields per record. 







Problem 


Summary 




Input 








.* 


Part 


Beginning 


Units 


Units 




Number 


Units 


Received 


Issued 


Cost 


101 


120 


40 


45 


$5.00 


210 


20 


70 


100 


7.00 


219 


60 


60 


80 


3,25 


226 


5 


110 


90 


2.95 


235 


100 





50 


6.20 


347 





50 


20 


4.60 


Data ranges remain the same as in Chapter 3. 




Processing 










Take data from 


keyboard and 


place valid 


records in a file named 


"INV". 










Output 










Instructions for data entry and a 


file named " 


INV". 



100 REM THIS PROGRAM PUTS DATA INTO THE INV FILE 

110 OPEN "0",1, "INV" 

120 PRINT "TYPE PART NUMBER, BEGINNING UNITS, UNITS RECEIVED," 

130 PRINT "UNITS ISSUED, AND COST, WITH COMMAS IN BETWEEN" 

140 PRINT "WHEN FINISHED TYPE 1,1,1,1,99" 

150 INPUT P,B,R,I,C 

160 IF C=99 THEN 350 

170 IF B<0 THEN 270 

180 IF B>1000 THEN 270 

190 IF R<0 THEN 270 

200 IF R>3000 THEN 270 

210 IF I<0 THEN 310 
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220 IF I>B+R THEN 310 

230 IF C<1 THEN 330 

240 IF O10 THEN 330 

250 PRINT #1,P;B;R;I;C 

260 GOTO 120 

270 PRINT "ERROR IN BEGINNING UNITS-RETYPE" 

280 GOTO 120 

290 PRINT "ERROR IN UNITS RECEIVED-RETYPE" 

300 GOTO 120 

310 PRINT "ERROR IN UNITS ISSUED-RETYPE" 

320 GOTO 120 

330 PRINT "ERROR IN COST-RETYPE" 

340 GOTO 120 

350 CLOSE #1 

360 STOP 

32767 END 

READY 

> 

>RUN 

TYPE PART NUMBER, BEGINNING UNITS, UNITS RECEIVED, 

UNITS ISSUED, AND COST, WITH COMMAS IN BETWEEN 

WHEN FINISHED TYPE 1,1,1,1,99 

? 101,120,40,45,5.00 

TYPE PART NUMBER, BEGINNING UNITS, UNITS RECEIVED, 

UNITS ISSUED, AND COST, WITH COMMAS IN BETWEEN 

WHEN FINISHED TYPE 1,1,1,1,99 

? 210,20,70,100,7.00 

ERROR IN UNITS ISSUED-RETYPE 

TYPE PART NUMBER, BEGINNING UNITS, UNITS RECEIVED, 

UNITS ISSUED, AND COST, WITH COMMAS IN BETWEEN 

WHEN FINISHED TYPE 1,1,1,1,99 

? 219,60,60,80,3.25 

TYPE PART NUMBER, BEGINNING UNITS, UNITS RECEIVED, 

UNITS ISSUED, AND COST, WITH COMMAS IN BETWEEN 

WHEN FINISHED TYPE 1,1,1,1,99 

? 226,5,110,90,2.95 

TYPE PART NUMBER, BEGINNING UNITS, UNITS RECEIVED, 

UNITS ISSUED, AND COST, WITH COMMAS IN BETWEEN 

WHEN FINISHED TYPE 1,1,1,1,99 

? 235,100,0,50,6.20 

TYPE PART NUMBER, BEGINNING UNITS, UNITS RECEIVED, 

UNITS ISSUED, AND COST, WITH COMMAS IN BETWEEN 

WHEN FINISHED TYPE 1,1,1,1,99 

? 347,0,50,20,4.60 

TYPE PART NUMBER, BEGINNING UNITS, UNITS RECEIVED, 

UNITS ISSUED, AND COST, WITH COMMAS IN BETWEEN 

WHEN FINISHED TYPE 1,1,1,1,99 

? 1,1,1,1,99 

Break in 360 
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Exercises Account Balance Exercise: Set up a customer statement file ("CUST") 
with six records that contains the data specified below. 





Problem Summary 




Input 










Customer 


Customer 








Number 


Name 


Balance 


Payments 


Charges 


2741 


Fernwood 


120 


120 


40 


2937 


Blakey 








90 


3246 


Grey 


250 


130 


170 


3359 


Phillips 


90 


40 


100 


3426 


Bird 


180 


180 


200 


3527 


Lombard 


100 


100 


250 


Processing 










Take data from keyboard and place it in 


a file named 


"CUST". 


Output 










Instructions for data entry and a file named "CUST". 





Sales Commission Exercise: Set ud a sales file called "SALES" that con- 
tains seven records with the data specified below. 
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Problem Summary 




Input 








Sales 




Gross 


Commission 


Territory 


Salesman 


Sales 


Rate 


1 


Bill 


$12,050 


.05 


1 


Joe 


5,270 


.045 


2 


Tom 


6,940 


.04 


2 


Phil 


11,200 


.055 


3 


Clyde 


7,340 


.04 


3 


Harry 


9,460 


.045 


3 


Bob 


14,690 


.05 



Processing 

Take data from keyboard arid place it in a file named "SALES" 

Output 

Instructions for data entry and a file named "SALES". 
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READING A In the previous section, you learned how to set up a computer file. To know 
FILE what is in a computer file, it is necessary to write a program. The program 

will read a file and print its contents. 

The processing for this program consists of reading a file, record by re- 
cord, and then printing the records. The program continues reading and 
printing records until there are no more records in the file. 
A program to do that is shown below: 

10 REM THIS PROGRAM READS AND PRINTS THE "EMPLOY" PILE 

100 OPEN "I'M," EMPLOY" 

110 INPUT #1,N,D,N$,H,R,V 

120 PRINT N;D,N$,H,R;V 

130 GOTO 110 

250 CLOSE #1 

50 STOP 

32767 END 



This program contains one new instruction: 

110 INPUT#1,N,D,N$,H,R,V 

Line 110 tells the computer to input field values from file number 1. The 
INPUT statement that reads a file is identical to the input from a terminal 
except for the specification of the file number. 

When we run this program, the content of the file is printed: 

5 40 

5.6 40 4 

4 40 2 



101 


1 


ADAMS 


10 3 


12 


BAKER 


10 4 


17 


BRAVE 
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108 


16 


COHEN 


6.25 


172 


2 


JOHNSON 


3.75 


198 


1 


TANNER 


4.25 


202 


16 


WILSON 


4 


206 


7 


LESTER 


5.25 


255 


12 


SCHMIDT 


5.6 


281 


12 


MILLER 


6 


313 


7 


SMITH 


4.25 


347 


12 


GRAY 


6 


368 


1 


WEAVER 


3.5 


422 


1 


WILLIAMS 


4 



38 





40 





36 





40 





40 





40 


4 


40 





40 


4 


38 





40 


2 


40 






Input past end in 110 



You'll note that, at the end of the file, when the program attempts to 
read past the last record in the file, a message is printed on your output. The 
message is: Input past end in 1 10. 

To eliminate this message, it is necessary to introduce a new BASIC in- 
struction. The instruction is the same as any IF statement, but in this case it 
takes the following form: 

105 IFEOF(1)THEN250 

The EOF(l) tells the computer that if the end of the file one [EOF(l)] is en- 
countered in the INPUT statement, the next line to execute in the program 
is 250. This closes the file and then ends the program. Line 130 GOTO 1 10 
must be modified to 130 GOTO 105 so that the end of file occurs before 
each record is read. 

You may wonder why the test for the end of file occurs in the program 
before the INPUT statement rather than after it. In TRS-80 BASIC it must 
always precede the INPUT statement in order for the test to work properly. 
(Beware: From a logical point of view, flowcharts that have end of file 
tests will place the test after the INPUT statement.) The placement of the 
end of file test in TRS-80 BASIC is one of the oddities of the rules of the 
language. 

You may also wonder how all six fields printed on a line can appear on 
a single line of the screen. This is done by the use of semicolons in the 
PRINT statement. 

120 PRINT N;D,N$,H,R;V 

The semicolons override the use of the print zones and will place fields very 
close to each other. In the line above, the department number field is 
printed close to the employee number field. The same is true in the case of 
the regular hours and overtime hours fields. You have to be careful in the 



80 / Sequential Files 



use of the semicolon if you want your columns to line up. You should only 
use semicolons after numeric fields that have the same number of digits. Try 

putting a semicolon after the hourly rate or the name and see what happens. 
Below you have a listing of the program and its output. 



10 REM THIS PROGRAM READS AND PRINTS THE "EMPLOY' 
100 OPEN "I'M, "EMPLOY" 
105 IF EOF(l) THEN 250 
110 INPUT #1,N,D,N$,H,R,V 
120 PRINT N;D,N$,H,R;V 



FILE 



140 GOTO 


105 






250 CLOSE 


#1 






500 STOP 








32767 


END 








READY 










> 










>RUN 










101 


1 




ADAMS 


5 


103 


12 




BAKER 


5.6 


104 


17 




BRAVE 


4 


108 


16 




COHEN 


6o25 


172 


2 




JOHNSON 


3 .75 


198 


1 




TANNER 


4,25 


202 


16 




WILSON 


4 


206 


7 




LESTER 


5.25 


255 


12 




SCHMIDT 


5.6 


281 


12 




MILLER 


6 


313 


7 




SMITH 


4.25 


347 


12 




GRAY 


6 


368 


1 




WEAVER 


3.5 


422 


1 




WILLIAMS 


4 


Break 


in 


500 







40 





40 


4 


40 


2 


38 





40 





36 





40 





40 





40 


4 


40 





40 


4 


38 





40 


2 


40 






Example Inventory Example: Read the file "INV" and print each record in that file. 

10 REM THIS PROGRAM READS "INV" FILE AND PRINTS IT 
100 OPEN "I", 1 ,"INV" 
105 IF EOF(1) THEN 250 
110 INPUT #1, P,B,R,I,C 
120 PRINT P;B,R,I,C 
130 GOTO 105 
250 CLOSE #1 
bUO STOP 
32767 END 
Ready 
>RUN 
101 120 40 45 5 
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80 3.25 

90 2.95 

50 6.2 

20 4.6 



Account Balance Exercise: Read the customer statement file "CUST" and Exercises 
print each record. 



219 


60 


60 


226 


5 


110 


235 


100 





347 





50 


Break 


in 500 





Sales Commission Exercise: Read the sales file "SALES" and print each 
record. 
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FINDING A A file of data is created for some purpose. Files are not created to be placed 
RECORD IN on a shelf in the corner to collect dust. Files are used to hold data until there 
A FILE is a need for it. When there is a need for data, we must be able to go to a hie 

and pull data, with the desired characteristics, out of the file. 

Suppose that Smith, employee number 313, wanted to know how many 
hours of overtime he had worked. Smith is one of the people in the file "EM- 
PLOY". To answer his question, we need to write a program that will locate 
his record and print it out. But to locate his record in a sequential file, all 
preceding records will have to be read„ 



Problem Summary 
Input 

The file "EMPLOY" with each record having six fields: 

• Employee identification number 

• Department number 

• Employee name 
© Hourly rate 

• Regular hours worked 

• Overtime hours worked 

Processing 

Search the file until the record with employee number 313 is found. 

Print that record and stop. 
Output 

If the search is successful, the desired record is printed. If the search is 

not successful (the record is not in the file) then a "RECORD NOT 

r->r\t T\Tn» ..„ . ■ .. .„..-. , . i 



The logic of the program for finding a record in a sequential file is: 

1. Link to the file. 

2. Read a record. 
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3. If it is the record we want, then print it; otherwise, read the next record. 

4, Stop when the search is finished. 

A flowchart (Fig. 4-2) and program to do these tasks are shown below: 





Start J 


} 


r 




Open 

Fiie 










1 


' 




Read a 
Record 




Flowchart of Finding a Record 



Figure 4-2 



100 REM PROGRAM TO FIND AN EMPLOYEE RECORD 

110 OPEN "I",!, "EMPLOY" 

120 IF EOF(l ) THEN 280 

130 INPUT #1, N,D,N$,H,R,V 

140 IF N=313 THEN 170 
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150 GOTO 120 

160 REM PRINT THE RECORD FOUND 

170 PRINT "EMPLOYEE" , "EMPLOYEE" , "HOURLY" , "REGULAR" , "OVERTIME" 

180 PRINT "NUMBER V'NAMEV'RATEV'HOURS", "HOURS" 

190 PRINT N f N$,H,R ( V 

200 CLOSE #1 

210 STOP 

270 REM .«»» RECORD NOT IN FILE «»• 

280 PRINT "END OF DATA-RECORD NOT FOUND" 

290 CLOSE #1 

300 STOP 

32767 END 

READY 

> 

>RUN 



EMPLOYEE 


EMPLOYEE 


HOURLY 


REGULAR 


OVERTIME 


NUMBER 


NAME 


RATE 


HOURS 


HOURS 


313 


SMITH 


4.25 


40 


4 



Example 



The key to the search program lies in statement 140. Here the employee 
number of the record that was read from the file is compared to 313, Smith's 
employee number. If there is a match (i.e., the value of N, the employee 
number, is 313), then we know that the desired record has been found and 
can be printed in lines 170™ 190. Or, if the employee number is not 313, the 
next record in the file is read and the check for a match is repeated. 

But notice that we also need to consider the possibility that Smith is not 
in the file. Maybe he was on vacation or sick leave and did not work that 
week. Or maybe his time card was lost and not entered into the file. Hence, 
we must include instructions telling the computer what to do if the end of 
file is reached. The IF EOF(l) condition in line 120 and the statements fol- 
lowing line 280 take care of that possibility. 

No matter the result, whether the desired record is found, or the desired 
record is not in the file, or the program "bombs" (fails), the file must be 
closed and the program must be terminated. 

We have repeated this same logic in the next example. Look it over, and 
try the exercises that follow. 

Inventory Example: Read the file "INV", find and print out the record for 

nart. number 23S with suitable headings 



100 REM TO FIND INVENTORY RECORD 

110 OPEN "I'M, "INV" 

120 IF EOF(l) THEN 280 

130 INPUT #1, P,B,R,I,C 

140 IF P=235 THEN 170 
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150 GOTO 120 

160 REM PRINT THE RECORD FOUND 

170 PRINT "PART NUMBER" , "BEG . UNITS" , "UNITS REC." 

175 PRINT P,B,R 

177 PRINT 

178 PRINT 

180 PRINT "UNITS ISSUED" , COST" 
185 PRINT I,C 
190 PRINT 
200 CLOSE #1 

205 PRINT 

206 PRINT 
210 STOP 

270 REM *** RECORD NOT IN FILE *** 
280 PRINT "END OF DATA-RECORD NOT FOUND" 
290 CLOSE #1 
300 STOP 
32767 END 
READY 
> 

>RUN 

PART NUMBER BEG. UNITS UNITS REC. 
235 100 



UNITS ISSUED COST 
50 6.2 



Break in 210 



Account Balance Exercise: Read the customer statement file "CUST", 
find and print out the record for customer number 2741 with suitable 
headings. 



Exercises 
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Sales Commission Exercise: Read the sales file, "SALES", find and print 
out the record for salesman Clyde with suitable headings. 
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Once a file has been created it is good practice to check it by writing a pro- CORRECTING 
gram that reads and prints the file. Then you can look at what is in the file to RECORDS IN 
see that all records have been entered correctly. Although the range checks A FILE 

will catch some errors in data entry, they do not catch errors if the incorrect 
value entered is within the range specified. These errors can be caught by 
comparing the records in a file with what the data should have been. To cor- 
rect them, a program has to be written. 

Assume that the "EMPLOY" file had an error: for some reason the reg- 
ular hours for Gray, employee number 347, was entered as 38 when it should 
have been 40. A program to correct that error is shown below: 

100 REM PROGRAM TO CORRECT THE HOURS WORKED FOR GRAY 

110 REM 

120 REM LINK TO FILES 

130 REM 

140 OPEN " I *',1, "EMPLOY" 
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150 OPEN n O" , 2, "EMPLCR" 

160 REM 

170 REM READ THE RECORDS FROM EMPLOY 

180 REM 

190 IF EOF(l) THEN 410 

200 INPUT #1,N,D,N$,H,R,V 

210 REM 

220 REM DETERMINE WHETHER ITS THE RECORD FOR GRAY 

230 REM 

240 IF N<>347 THEN 330 

250 REM 

260 REM IT IS THE RECORD FOR GRAY , EMPLOYEE NUMBER 347 

270 REM THEREFORE ASSIGN THE CORRECT HOURS WORKED 

280 REM 

290 R=40 

300 REM 

310 REM PUT RECORD INTO EMPLCR — THE CORRECT FILE 

3 20 REM 

330 PRINT #2, N;D;N$;", H ;H;R;V 

3 40 GOTO 190 

350 REM 

410 CLOSE #1 

420 CLOSE #2 

430 STOP 

32767 END 

READY 

> 

>RUN 

Break in 430 



If you now change the program that prints the "EMPLOY" file in line 100 
to 



100 OPEN'TU, "EMPLCR" 

and run it, you can list the "EMPLCR" file as follows: 



ADAMS 5 

BAKER 5 . 6 

BRAVE 4 

COHEN 6.25 

JOHNSON 3.75 

TANNER 4.25 

WILSON 4 

LESTER 5.25 

SCHMIDT 5.6 

MILLER 6 

SMITH 4.25 



101 


1 


103 


12 


104 


17 


108 


16 


172 


2 


198 


1 


202 


16 


206 


7 


255 


12 


281 


12 


313 


7 



40 





40 


4 


40 


2 


38 





40 





36 





40 





40 





40 


4 


40 





40 


4 
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347 


12 


GRAY 


36 8 


1 


WEAVER 


422 


1 


WILLIAMS 


Break 


in 500 





6 

3.5 

4 



40 
40 2 
40 



The logic for this program is illustrated in Fig. 4-3 ( below). This 
program is designed to find a specific record, employee number 347, and to 
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Flowchart for Correcting Records in a File 



Figure 4-3 
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change the value of the regular hours in that record. When you look at the 
program two differences from earlier programs emerge: 

1. Two files are opened. 

2. A LET seems to be missing in line 290. 

The program runs despite the apparent error in line 290. It runs be- 
cause the LET is optional. Many computer systems permit you to assign 
values to a field without the keyword LET. A few systems do not. In TRS- 
80 BASIC, the LET is optional. Since the LET is optional, you do not have 
to use it, and by this omission you can save time, and energy, not to men- 
tion the added possibility of making typographical errors. In all subsequent 
programs we have omitted the LET. 

Two files are necessary because sequential files can only be used for 
input to the program or for output from the program, but not both. There- 
fore to correct an error, we need to read the old file and place the correct 
data in a new file. 

In this program, lines 140 and 150 open the two files. Each file must be 
unique (a filename should appear only once). At the end, both files are 
closed. 

The logic of this program takes a record from "EMPLOY". Line 240 
checks whether it is the record with an error. If it is, the error is corrected; 
the statement in line 290 assigns the correct value to R thereby erasing the 
old, incorrect value of R. And correct records are written into "EMPLCR". 
The process continues until all records have been read from "EMPLOY" 
and written into "EMPLCR". 

After this program has been run, both files will appear in your direc- 
tory -"EMPLOY" with its error, and "EMPLCR" with only correct 
records. In effect we have copied the "EMPLOY" file. 

A more general error correction program is the next example. 



Example Inventory Example: It has been discovered that when the file "INV" was 
initially created, two errors were made. The units received for part number 
219 should have been 160 instead of 60; and the beginning units for part 
number 235 should have been 90 instead of 100. These records must be cor- 
rected. Part numbers to be corrected should be entered in ascending order* 



PrnNom Si immnn/ 

Input 

The tile "INV" where each record has live fields: 

• Part number 

© Beginning units 

• Units received 
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Units issued 
• Unit cost 

Correct field values for erroneous records. 

Processing 

Get the identification number for incorrect records from the terminal. 
Search the file until the desired record has been found. Get correct data 
for incorrect records from the terminal. Place correct records into file 
"INVCR". 

Output 

Instructions for data entry and the file "INVCR" with correct inventory 

records. 



10 REM THIS PROGRAM TO CORRECT ERRORS IN THE INV FILE 

110 REM 

120 REM LINK TO FILES 

130 REM 

140 OPEN "I", 2, "INV" 

150 OPEN "O" , 3, "INVCR" 

160 REM 

170 REM GET PART NUMBER OF RECORD TO BE CORRECTED 

180 REM 

190 PRINT "TYPE PART NUMBER OF RECORD TO BE CORRECTED" 

200 PRINT "WHEN FINISHED — - TYPE 99" 

210 INPUT N 

220 REM 

230 REM CHECK IF ERROR CORRECTIONS ARE FINISHED 

240 REM 

250 IF N=99 THEN 545 

260 REM 

270 REMGET A RECORD FROM INV 

280 REM 

285 IF EOF(2) THEN 670 

290 INPUT #2, P,B,R1,R2,C 

300 REM 

310 REM 

3 20 REM CHECK IF THE RECORD NEEDS TO BE CORRECTED 

3 30 REM 

340 IF P=N THEN 420 

350 REM 

3 60 REM WRITE RECORD INTO THE INVCR FILE 

370 REM 

380 PRINT #3, P;B;R1;R2;C 

390 GOTO 285 

400 REM 

410 REM 

420 PRINT "FOR PART NUMBER " ; P 
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430 PRINT "ENTER BEGINNING UNITS, UNITS RECEIVED" 

440 PRINT "UNITS ISSUED, AND COST" 

450 INPUT B,R1,R2,C 

460 PRINT #3,P;B;R1;R2;C 

470 REM 

4 80 REM GET PART NUMBER OF NEXT RECORD TO BE CORRECTED 
490 REM 

500 GOTO 190 

510 REM 

520 REM CORRECTIONS FINISHED, COPY REMAINING RECORDS 

5 30 REM FROM INV TO INVCR 

5 40 REM 

^545 IF EOF(2) THEN 670 

550 INPUT #2,P,B,R1,R2,C 

560 PRINT #3,P;B;R1;R2;C 

V„570 GOTO 545 

6 40 REM 

650 REM TERMINATE 

660 REM 

670 CLOSE #2 

680 CLOSE #3 

690 STOP 

32767 END 

READY 

> 



TYPE PART NUMBER OF RECORD TO BE CORRECTED 

WHEN FINISHED — TYPE 99 

? 219 

FOR PART NUMBER 219 

ENTER BEGINNING UNITS, UNITS RECEIVED 

UNITS ISSUED, AND COST 

? 60,160,80,3.25 

TYPE PART NUMBER OF RECORD TO BE CORRECTED 

WHEN FINISHED — TYPE 99 

? 235 

FOR PART NUMBER 235 

ENTER BEGINNING UNITS, UNITS RECEIVED 

UNITS ISSUED, AND COST 

? 90,0,50,6.20 

TYPE PART NUMBER OF RECORD TO BE CORRECTED 

WHEN FINISHED — TYPE 99 

? 99 

Break in 690 



If the old program to list the "INV" file is changed as follows: 
100 OPEN "I'M, "INVCR" 
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and rur 


i, the 


"INVCR 


" file 


101 


120 




40 


219 


60 




160 


226 


5 




110 


235 


90 







347 







50 


Break 


in ! 


500 





45 
80 
90 

50 
20 



5 

3.25 

2.95 

6.2 

4.6 



This program can correct any number of erroneous records. No matter 
which records are wrong or which fields have false values, the program can 
correct them. However, the operator must know in which records the errors 
have occurred and what the correct field values are. Both items have to be 
entered by the operator from the terminal 

The program finds a record specified by the operator by searching 
through the file. As it searches, records that have a lower identification 
number are placed in the new file. When the record to be corrected has been 
found, the operator is instructed to enter the data for that record. The data 
received from the terminal is then placed into the new file. This cycle is re- 
peated until there are no more records to be corrected. At that time any 
records still remaining in the old file are copied into the new file. 

At times it is necessary to make a copy of a file for back up. Then, if the 
first file is accidentally destroyed, the copy can be retrieved and used. In the 
previous section, where errors in records were corrected, a revised version 
of a file was created. 

The general approach to error corrections is also appropriate to copy- 
ing a file: 

@ Link to the desired files 
® Read data from one file 
® Write the data into the other file 
® When no more data remains in the first file, then close both files and 

terminate. 

These steps are included in both examples and in both exercises of the 
previous section. They are particularly obvious in lines 545-570 of the last 
program (page 92) where the records remaining in file "INV" are copied to 
file "INVCR". 



COPYING 
A RLE 



This chapter introduces you to sequential files. Sequential files are very eco- 
nomical when large volumes of data have to be processed. You have seen 
how to set up files and how to enter data into a file. Next the data file was 
read and printed. Finding a record in a file is an elementary operation that 
has uses in many applications. In this chapter finding a record was used to 
correct erroneous data. The chapter concluded by pointing out that error 



SUMMARY 
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correction has to copy a file. Copying a file is necessary in error correction 
because sequential files should only be read or written, not both. 

In the programs of this chapter more REM statements have been used 
to explain how the programs work. In computer terms, this is called internal 
documentation of a program. As you proceed through the book, more and 
more REM's will be used as the programs become more complex. 



BASIC Instructions Introduced: 



Statement 



Explanation 



OPEN 'T',1, "filename" 
OPEN "O",!, "filename" 



INPUT #1 , fieldnamel, fieldname2, etc. 



Opens a file identified by 
the filename, and gives it an 
identifying number. The 
filename can be from 1 to 8 
characters. The "O" is for 
output. The "I" is for input. 

Reads a record from the 
file. Records are specified 

by their fieldnames. 



PRINT #1, fieldnamel; fieldname2; etc. 



Writes a record on the file. 
The fields of the record will 
be separated by semicolons. 
Alphabetic fields are sepa- 
rated by;","; . 



CLOSE #1 

IF EOF(l) THEN line number 



Closes the file. 

Tells the computer to go to 
line number when all rec- 
ords of a file have been 
read. 



PROBLEMS 



1. Set up a file called "XK1" and enter the following data: 



'.D. Number 


Time I 


Tina 


101 


40 





103 


40 


4 


104 


40 


2 


108 


38 
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172 


40 





198 


36 





202 


40 





281 


40 





347 


38 





422 


40 






2. Print out the contents of file XKX 

3. Write a simple program that will set up a file "TOP" with the input data 
(below) and print out the file. 

LD. Name 

247 Farnsworth 

262 Lowell 

264 Fergerson 

275 Fong 

4. Read the sales file, "SALES". Find and print out the record for sales- 
man Joe with suitable headings. 

5. Read the inventory file. Find and print out the records for part numbers 
219 and 347 with suitable headings. The END OF DATA^RECORD 
NOT FOUND message will be printed. 

6. Read the "XK1" file from Problem 1, above. Find and print out the re- 
cord for I.D. number 172 with suitable headings. 

For problems 7-10 below, write an additional program to read and print the 
file: 

7. Write a program that will read the customer statement file "CUST" and 
place that data in a new file "CUST1" so that you have two files with 
exactly the same data. Verify by printing "CUST1'\ 

8. Write a program that will read the customer statement file "CUST" and 
place only customer data that have customer numbers from 3000 to 
4000 into a new file "CUST2". Verify by printing "CUST2". 

9. Write a program that will read the sales commission file "SALES" and 
place the name and gross sales data into a new file "SALE1". However, 
the company has instituted a new sales policy so that the commission 
rate for all salesmen will be 6%. Verify by printing "SALESl". 

10. Write a program that will read the payroll file "EMPLOY" and place 
the following data fields into a new file "EMPL1": Employee number, 
department number, name, hourly rate. 
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At the end of this chapter you should be able to: 

• Calculate totals and subtotals for a file 

• Produce reports that are clear and legible 

Data is the lifeblood of a business. Without data, a business could not oper- 
ate. For example, customer orders tell a firm what items to ship to a cus- 
tomer. They also tell a business who to bill and how much the customer 
owes the business. Data, such as customer orders, direct the operations of a 
business. 

There are many other items of data that have the same characteristic, i.e. 
they support business operations. Production orders, inventory transactions, 
vendor invoices, time cards, and the like all serve to direct the activities of 
the firm. 

But data is also used to support management decision making. From a 
management perspective, it is not enough to know that one customer has or- 
dered one item. For decision making it is necessary to keep track of all cus- 
tomers. It is necessary to look at inventories as a whole. It is necessary to 
judge and evaluate all products. It is necessary to plan and control the oper- 
ations of the firm as a whole. 

Data to support management decisions has to be collected and pro- 
cessed. The processed data has to be presented to management as informa- 
tion in a report that will help management keep track of the activities of a 
firm. For example, a customer report allows management to determine their 
best customers, A product-line sales summary would tell management which 
products are selling well and which products are selling poorly. 

This chapter shows you how sequential files are processed to produce 
reports. It will show you how to accumulate totals for the whole file and how 
to calculate subtotals for parts of the file. And it will show you how to use 
additional PRINT capabilities to make your reports neat and orderly. 

In order to understand the programming involved in accumulating totals, 
the following example illustrates what is required. 



Input 

"EMPLOY" file 



Problem Summary 



Processing 

Accumulate the total number of regular hours worked for all employees. 

Output 

Total regular hours worked with an appropriate heading. 



See the flowchart (Fig. 5-1) and program to do this on the next page. 



Performance 
Objectives 



HOW TO 

ACCUMULATE 

TOTALS 
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10 REM PROGRAM TO TOTAL REGULAR HOURS WORKED FOR 

11 REM ALL EMPLOYEES; Rl WILL BE THE ACCUMULATION 

12 REM OF REGULAR HOURS 
10 OPEN " I ",1," EMPLOY" 
110 R1=0 

115 IF EOF(l) THEN 190 

120 INPUT #1,N,D,N$,H,R,V 

140 R1=R1+R 

150 GOTO 115 

190 CLOSE #1 

200 PRINT "TOTAL REGULAR HOURS ",Rl 

210 STOP 

32767 END 
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Figure 5«1 



Flowchart for Accumulating Totals 
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This program is very similar to the last payroll program with the excep- 
tion of lines 110 and 140. 

110 Rl = 

Line 1 10 sets the value of Rl to zero. This is called initializing an accumula- 
tion. Most computer systems will do this automatically, however some sys- 
tems will not. Therefore it is worth the slight additional effort to put in an 
initialization statement. The choice of the name, Rl in this case, is up to the 
programmer. Any name could be used provided it is not used to define any 
other field. Rl seems a reasonable choice since R is the name assigned to the 
regular hours field. 

140 Rl = Rl + R 

This statement looks strange until you remember that the equal sign ( = ) is 
not an equal sign in algebraic terms. This statement looks the same as the 
algebra statement a = a + b; however, it is different. The equal sign in BA- 
SIC is an assignment. Line 140, if translated into English means take the 
value that you found in field R, add its value to the current value of Rl, and 
assign the sum to RL If we look at the first four records in EMPLOY the 
values of R are: 40 for Adams, 40 for Baker, 40 for Brave, and 38 for Cohen. 

When the computer executes line 1 10 it sets the value of Rl to 0, at line 
120 the value of R for Adams is 40. At line 140 the values to the right of the 
equal sign are and 40 which sum to 40„ The value 40 is now assigned to 
Rl; after line 140 has been executed, Rl has the new value of 40. The pro- 
gram then directs that the next record be input (Baker). Again at 120 the 
value of R for Baker is 40. In line 140 Rl is 40 and R is 40. When they are 
summed, the new value of Rl is 40 + 40 which is 80. The program directs 
that the next record be input (Brave). At line 120 the value of R for Brave is 
40. At line 140, Rl is now 80 and R is 40. These values are summed and the 
new value of Rl is assigned as 120. The next record is input (Cohen). The 
value of R is 38, Rl is 120. The new value of Rl is assigned as 158. 

This process repeats until the end of the file is reached. Then the file is 
closed and the following output is produced: 

TOTAL REGULAR HOURS 552 

Break in 210 



As a second example, let us increase the number of totals. For this case, 
we want to calculate the total hours worked (both regular and overtime) and 
the total wages earned by everyone. The "EMPLOY" file will again be used. 
Now, we need to add the regular and overtime hours worked by each em- 
ployee to get their totals, also we need to add the wages earned by each em- 
ployee to get the total wages earned. 
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Problem Summary 
Input 

"EMPLOY" file 
Processing 

Accumulate regular hours worked, overtime hours worked, and wages 

earned by each employee to get totals. 

Output 

Totals for regular hours worked, overtime hours worked, and wages 
earned with appropriate headings. 



The program therefore has to: 

1. Link to the "EMPLOY" file. 

2. Set up fields for the totals. 

3. Read the records in the file. 

4. Accumulate totals, 
lac totals with appropriate headings. 



The program to perform these steps is shown below: 

10 REM THIS PROGRAM TO ACCUMULATE TOTALS FOR REGULAR HOURS 

11 REM OVERTIME HOURS, AND TOTAL WAGES EARNED IN THE "EMPLOY" 

12 REM FILE. 

100 OPEN "I ",1, "EMPLOY" 

120 R1=0 

130 V1=0 

140 W1=0 

145 IF EOF(l) THEN 250 

150 INPUT #1, N,D,N$,H,R,V 

170 R1=R1+R 

180 V1=V1+V 

190 W1=W1+H*R+1.5*H*V 

?oo goto i as 

250 CLOSE #1 

260 PRINT "TOTAL REGULAR HOURS WORKED", Rl 

27 PRINT "TOTAL OVERTIME HOURS WORKED", VI 

280 PRINT "TOTAL WAGES EARNED BY ALL EMPLOYEES ", Wl 

290 STOP 

32767 END 
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RUN 

TOTAL REGULAR HOURS WORKED 55 2 

TOTAL OVERTIME HOURS WORKED 16 

TOTAL WAGES EARNED BY ALL EMPLOYEES 

Break in 290 



2771.7 



The first group of statements, lines 120, 130, and 140, sets the fields 
called Rl, VI, and Wl to zero. Rl will be used to accumulate regular hours. 
VI will be used to accumulate overtime hours. And Wl is used, later in the 
program, to accumulate the wages earned. Again, as in the preceding exam- 
ple, before you read a record, you have to initialize these fields to zero any- 
where before the loop. 

The second group of statements performs the accumulation of totals. As 
each record is read, the data from the record is added to the fields that are 
used to hold the accumulation. Remember the = symbol is an assignment 
symbol and not an equal sign! What line 170 tells the computer to do is: 
Take the value that is currently in Rl, add to this the value that is currently 
in R, and place the sum back into RL 

A similar operation occurs in lines 180 and 190. In line 180, the current 
contents of VI is added to the current contents of V; and the result is placed 
into VI. In line 190, a somewhat more complicated procedure is involved: 



First, the regular wages are computed when the hourly rate is multiplied 
by the hours worked (H*R). 

Next, the computer calculates overtime wages when it multiplies the 
overtime hours (V) by one-and-a-half times the hourly rate (1.5*H). 

Then, the regular wages and the overtime wages are added to the current 
wage total (Wl). 



Finally, that sum is stored again in Wl. 



In this way, the wages of all employees are accumulated, but only one at 
a time. 

The third group of statements, in lines 260-280, prints what has been 
accumulated inRl, VI, and Wl, with appropriate headings, of course. 

To further illuminate this process, here is another example. To highlight 
how the accumulation procedure works, let's take a simple data file and gen- 
erate the totals of that file. 

Assume you have a file called "SALORD", that contains sales orders. 
Further assume that each sales order has just two fields-order number and 
dollar amount of order. The file of data could look like this: 
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Sales Order Number Dollar Amount of Sale 



20473 


1800.00 


20474 


450.00 


20475 


600.00 


20476 


150.00 


20477 


500.00 



Of course, a real sales order would have many more fields. For example, 
a sales order would have to identify the customer, the customer address, the 
salesman who made the sale (for commission calculation if needed), where 
to ship the items, who to bill for the sale, and so on. And obviously, a real 
sales order hie would contain many more records than the five that are 
shown. For our simple example, this file will be adequate. 

Now, what we need to do is write a program that will accumulate the 
total dollar amount of sales, and then print out this total But let's also print 
the value of sales and the value for the total as we are accumulating. 

A program to perform this task is given below: 

100 REM PROGRAM TO TOTAL SALES ORDERS 

110 OPEN "I n ,i r "SNfi9D n 

120 T=0 

125 IF B0F(1) THEN 210 

130 INPUT #1, N,S 

150 T=T+S 

160 PRINT ,, S=";S/"T= ,, ;T 

170 GOTO 125 

210 CLOSE #1 

220 PRINT "THE TOTAL DOLLAR SALES ARE: M ;T 

230 STOP 

32767 END 

If you now type RUN, the program will give the following output. 



S= 1800 


T= 1800 


S= 450 


T= 2250 


S= 600 


T^ 2850 


S= 150 


T= 3000 


S= 500 


T= 3500 



THE TOTAL DOLLAR SALES ARE: 3500 
Break in 230 

Look again at the program. We il go over the steps thai it performs one 
by one, and we'll trace what happens to the fields labelled N, S, and T\ 

After opening the file, line 120 sets the field T to zero. So, picture a box 
called T and put a zero into it, 

tRT 
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Line 130 reads two values from the file and puts these values into N and S. 
Thus: 



N 



20473 S 


1800 



Line 150 then takes the value of field T. Look at the box called T 
above. It contains a zero — right? So, it takes the zero and adds to it the 
content of the box called S. S contains 1800. So, 1800 is added to zero and 
now T would look like: 



1800 



In line 160, we print the contents of S and T. And line 170 gets us back 
to line 125. At line 130, the next set of values is placed into the fields N and 
S: 



N 



20474 



450 



Line 1 50 then adds what is in T (the 1 800) to the contents of S (the 450). 
And the result (2250) is placed into the field T. 

T = 2250 

Line 160 outputs S and T before line 170 takes us back for another 
cycle. 

You can now repeat these steps on your own. Use the boxes below for 
the third, fourth and fifth records. 

ending 

3rd starting T F2250 | NC J Si 

4th NC 

5th 



Nl 



3 Si 
1 Si 



J T 
II T 



: t 



Note the pattern that is followed in accumulating a total. Start by set- 
ting a field to zero. Then, add one item at a time to that field until you are 
out of data. When you next PRINT that field, the grand total is output. 



Problem Summary 

Input 

"SALES" file 

Processing 

Accumulate the total sales commissions that must be paid to the sales- 
men. 

Output 

Total of all the commissions suitably labelled. 



Example 
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10 REM THIS PROGRAM TO ACCUMULATE IN CI 

11 REM THE TOTAL COMMISSION PAID TO ALL SALESMEN 

12 REM IN THE FILE "SALES" 
100 OPEN "I" ,3, "SALES" 



110 Cl-0 




115 IF EOF(3) THEN 250 




120 INPUT #3, D,S$,S,C 




140 Cl=Cl+S*C 




150 GOTO 115 




250 CLOSE #3 




260 PRINT "TOTAL COMMISSION 


PAID", CI 


270 STOP 




32767 END 




RUN 




TOTAL COMMISSION PAID 


313 


Break in 270 





.05 



Exercises Inventory Value Exercise: 



Problem Summon/ 

Input 

iNV ,; tile 

Processing 

Accumulate the beginning units, units received, and units issued; calcu- 
late the total inventory value at the beginning of the period. 

Output 

Totals for beginning units, units received, units issued, and beginning 
inventory value, with appropriate headings. 
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TOTAL BEGINNING UNITS 285 

TOTAL UNITS RECEIVED 260 

TOTAL UNITS ISSUED 285 

TOTAL VALUE OF THE BEGINNING INVENTORY 1429.75 



Account Balance Exercise: 



Problem Summary 

Input data 

"CUST" file 

Processsing 

Accumulate balances, payments, charges, and new balances for the file. 
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Output 

Totals for balances, payments, charges and new balances, with appro- 
priate headings. 
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TOTAL BEGINNING BALANCES 

TOTAL PAYMENTS 57 

TOTAL CHARGES 850 

TOTAL NEW BALANCES 

Break in 300 



740 



1020 



In many cases, summaries of the file as a whole are too gross to make any 
decisions. A more refined breakdown of the data is needed. But the detail is 
not at the individual record level Instead of totals for the file as a whole or 
detail at the individual record level, we need an intermediary categorization 
of the data. Subtotals provide such intermediary categorizations. 

Again, we look to the payroll problem for an illustrative example. Look 
at the payroll data file. It contains values for employee number, department 
number, employee name, etc. For our example, we need a summary of em- 
ployee wages by department. 

Departmental subtotals furnish an intermediary breakdown of the data. 
They are not as aggregate as file totals, neither are they as detailed as the 
earnings by individual employee. Instead, they fit someplace between the 
employee level detail and the all encompassing aggregation of file totals. 

But before subtotals can be calculated with sequential files, the data has 
to be reorganized. Table 5-1 shows how the EMPLOY file would look once 
it's been placed into department number sequence. 



HOW TO 
CALCULATE 
SUBTOTALS 





Employee File Sorted by Department 


Number 




Table 5-1 


Employee 


DepL 


Employee 


Hourly 


Regular 


Overtime 




Number 


Number 


Name 


Rate 


Hours 


Hours 




422 


1 


Williams 


$4.00 


40 







368 


1 


Weaver 


3.50 


40 


2 




198 


1 


Tanner 


4.25 


36 







101 


1 


Adams 


5.00 


40 







172 


2 


Johnson 


3.75 


40 







313 


7 


Smith 


425 


40 


4 




206 


7 


Lester 


5.25 


40 







347 


12 


Gray 


6.00 


38 







281 


12 


Miller 


6.00 


40 







255 


12 


Schmidt 


5.60 


40 


4 




103 


12 


Baker 


5.60 


40 


4 




202 


16 


Wilson 


4.00 


40 







108 


16 


Cohen 


6.25 


38 







104 


17 


Brave 


4.00 


40 


2 
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The process used to order the data in a particular sequence is called 
sorting. (Sorting is a complex subject, so we will not cover the logic of sort- 
ing a data file. Instead, Appendix B contains a sort program with instruc- 
tions on how to use it. We will indicate where a sort is needed, but sorting 
itself is left to your discretion.) 



Problem Summary 
Input 

"EMPLOY" file in department number sequence, which will be called 
"EMPLDP". 

Processing 

Accumulate regular hours worked, overtime hours worked, and wages 

earned by department and for the file as a whole. 
Output 

Subtotals and totals accumulated. 



The program will have to: 

1. Link to the "EMPLDP" file. 

2. Set up iieids for subtotals and totals. 

3. Read the records in the file. 

4. Accumulate subtotals by department. 

5. Print the subtotals. 

6. Accumulate totals for the file. 

7. Print the totals. 

8. Terminate. 

The flowchart for the program is shown in Figure 5-2. A program to do 
these steps is shown below. 



10 REM PROGRAM TO ACCUMULATE SUBTOTALS FOR THE 

11 REM PAYROLL PROBLEM AND TO ACCUMULATE TOTALS 

12 REM OF THE SUBTOTALS 
130 OPEN " I", 1, "EMPLDP" 

160 W1=0 

170 R2=0 

180 V2-0 

190 W2=0 

200 D1=0 

210 PRINT "DEPARTMENT" , "REGULAR" , "OVERTIME" , "WAGES" 
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220 


PRINT "NUMBER" , "HOURS" , "HOURS" , "EARNED" 




230 


PRINT " "," "," "," " 




240 


REM READ THE DATA IN THE FILE 




245 


IF EOF(l) THEN 520 




250 


INPUT #1, N,D,N$,H,R,V 




\ 265 
X 270 


REM SET UP FOR THE FIRST DEPARTMENT 




IF Dl>0 THEN 280 




27 5 


D1=D 




280 


IF DKD THEN 350 




290 


REM THEN DEPARTMENT THE SAME AS FOR THE PREVIOUS RECORD 




300 


REM THEREFORE ACCUMULATE SUBTOTALS FOR THE DEPARTMENT 




310 


R1=R1+R 




320 


V1=V1+V 




330 


W1=W1+H*R+1.5*H*V 




3 31 


REM READ THE NEXT RECORD 




340 


GOTO 24 5 




341 


REM PRINT DEPARTMENT SUBTOTALS 




3 50 


PRINT D1,R1,V1,W1 




360 


REM ADD SUBTOTALS TO TOTALS 




370 


R2=R2+RI 




380 


V2=V2+V1 




390 


W2-W2+W1 




400 


REM SET SUBTOTALS TO ZERO FOR THE NEXT DEPARTMENT 




410 


R1=0 




420 


V1 = 




430 


W1 = 




440 


REM SET DEPARTMENT TO CURRENT DEPARTMENT 




450 


D1 = D 




460 


GOTO 310 




510 


REM PRINT SUBTOTALS FOR THE LAST DEPARTMENT 




520 


PRINT D1,R1,V1,W1 




530 


REM ADD SUBTOTALS FOR THE LAST DEPARTMENT TO TOTALS 




540 


R2=R2+R1 




550 


V2=V2+V1 




560 


W2=W2+W1 




570 


REM PRINT THE TOTALS 




580 


PRINT "TOTAL", R2,V2,W2 




590 


REM TERMINATE THE PROGRAM 




600 


CLOSE #1 




610 


STOP 




32767 END 




RUN 

DEPARTMENT REGULAR OVERTIME WAGES 




NUMBER HOURS HOURS EARNED 




1 


156 2 663.5 




2 


40 150 




7 


80 4 405.5 




12 


158 8 983.2 




16 


78 397.5 




17 


40 2 17 2 




TOTAL 552 16 2771.7 




Break in 610 
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Figure 5-2 



Flowchart for Payroll Total Program 
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Print Subtotals 
for Last Dept 



Add Subtotals 
to Totals 



Print 
Totals 



I Terminate ) 



Flowchart for Payroll Total Program (Cont'd.) 



Figure 5-2 



We can trace the logic of this program to see what it does. You'll note 
the same elements that existed in the process of getting totals. 

First, the fields that are used to hold the subtotals (as well as those for 
the totals) are set to zero in lines 140-190. Next, they are used to accumulate 
the running totals in lines 310-330. Then they are printed in line 350; used 
in the accumulation of totals in lines 370-390; and set to zero for the accu- 
mulation of subtotals for the next department in lines 410-430. 

As you can see, calculating subtotals is identical to the process used to 
calculate totals. The key difficulty lies in determining when to start and 
when to stop accumulating for one department. 

How do we know we have finished with a department? Look at Table 
5-1, the employee file sorted By department number. Cover up the table 
(with a sheet of paper or your hand) except for the titles. Now look at the 
first record. Move your sheet of paper down the table one record at a time 
(because that is the way the computer does it—the computer sees the whole 
file, but only one record at a time). And herein lies the clue for determining 
the end of a department. We are finished with one department when we 
arrive at the next department. 
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Try it again. Look at Table 5-1, one record at a time. Look only at the 
department number. We start with department number 1. Remember that 
number. Look at the next record. It is still department 1. And the next one. 
Still 1. Look at the fourth record. Department number is 1. Read the next 
record. The department number is no longer one. Therefore, we know that 
we are finished with department one. 

Now let's look at the program. The process that you have just gone 
through is in lines 250, 270, 275, 280, and 450. The statement in line 250 
reads a record. Line 280 compares the department number of the record just 
read with a prior department number. The prior department number is de- 
fined in lines 270 and 275 for the first record read, and it is set in line 450 
after each department break. (A "break" in this context refers to the point 
where a number changes from one value to another.) 

So, Dl "remembers" the previous department number. And when in 
line 280 a different department number (D) is encountered (Dl not equal to 
D) then the accumulated values in Rl, VI, and Wl represent the subtotals 
for the previous department. Hence, the logic flows to line 350 where the 
subtotals are printed. 

One more item needs to be mentioned; printing the last department. We 
know we have finished accumulating the subtotals for the last department 
when we run out of data. But at that point, while the accumulation is com- 
plete, the answer resides in the computer. To get it out, it has to be printed. 
But a print different from line 350 has to be used. This is the purpose of the 
THEN 520 in the end-of-file test in line 245. When the end of file occurs, 
then it is time to print the last department subtotal, calculate the totals, 
print them, and terminate the program. 

Look over the inventory example and then try the exercises. 



Example Inventory Example: In the "INV" file, assume that part numbers 100-199 

belong to department one (1), numbers 200-299 belong to department two 
(2), and numbers 300-399 belong to department three (3). Calculate the dol- 
lar value of the beginning and ending inventory for each department and 
print these values as well as their grand totals. We want to write a program 
that will calculate the departmental subtotals for the value of the beginning 
and ending inventory values, as well as the grand totals. 

Problem Summary 

Input 

"INV" file 
Processing 

Accumulate beginning and ending inventory dollar values by depart- 
ment for the file. 
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Output 

Departmental subtotals and grand totals suitably labelled. 

The steps in this program are the same as in the previous payroll program in 
that the program will have to: 

1. Link to the INV file. 

2. Set up fields for subtotals and totals. 

3. Read the records in the file. 

4. Accumulate subtotals by department. 

5. Print the subtotals. 

6. Accumulate totals for the file. 

7. Print the totals. 

8. Terminate. 



10 REM THIS PROGRAM TO ACCUMULATE SUBTOTALS FOR BEGINNING 

11 REM AND ENDING INVENTORY VALUES BY DEPARTMENT 

12 REM AND TO ACCUMULATE TOTALS FOR THE FILE 
100 OPEN "I",2,"INV" 

110 B1=0 

120 E1=0 

130 B2-0 

140 E2=0 

150 D1=0 

160 PRINT "DEPARTMENT" /'BEGINNING" , "ENDING" 

170 PRINT "NUMBER", "INVENTORY", "INVENTORY" 

180 PRINT " "," "," " 

190 REM READ DATA IN THE FILE 

200 IF EOF(2) THEN 480 

210 INPUT #2, N,B,R1,R2,C 

220 N=INT(N/100) 

230 IF D1>0 GOTO 260 

240 D1=N 

260 IF DKN GOTO 330 

270 REM DEPARTMENT NUMBER IS THE SAME AS THE PREVIOUS RECORD 

280 REM THEREFORE ACCUMULATE THE SUBTOTALS 

290 B1=B1+B*C 

300 El=El+B*C+Rl*C-R2*C 

30 5 REM READ THE NEXT RECORD 

310 GOTO 200 

320 REM PRINT DEPARTMENT SUBTOTALS 

330 PRINT D1,B1,E1 

340 REM ADD THE SUBS TO THE TOTALS 

350 E2=E2+E1 

360 B2=B2+B1 
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370 REM SET SUBS TO ZERO FOR THE NEXT DEPARTMENT 

380 B1=0 

390 E1=0 

400 REM SET Dl EQUAL TO THE NEXT DEPARTMENT NUMBER 

410 D1=N 

420 GOTO 290 

470 REM END OF FILE REACHED— PRINT SUBTOTALS FOR LAST DEPARTMENT 

480 PRINT D1,B1,E1 

490 REM ADD SUBTOTALS FROM THE LAST DEPARTMENT TO TOTALS 

500 E2=E2+E1 

510 B2=B2+B1 

520 REM PRINT TOTALS FOR THE FILE 

530 PRINT "TOTAL BEGINNING AND ENDING INVENTORIES " ;B2;E2 

5 40 CLOSE #2 

327 67 END 



RUN 

DEPARTMENT 

NUMBER 



BEGINNING 
INVENTORY 



ENDING 
INVENTORY 



1 600 575 

2 829.75 513.75 

3 138 
TOTAL BEGINNING AND ENDING INVENTORIES 



1429.75 1226.75 



The only difference in logic between this program and the previous 
payroll program is the test for a new department. Before, department num- 
bers were given in a field; in this example, the department number is deter- 
mined from the part number. The instruction in line 220 does this. The 
statement 

N - INT(N/100) 

illustrates the use of a new type of BASIC statement. INT is called a func- 
tion. It makes an integer (whole number) out of what appears in parenthesis 
after it, by dropping anything after the decimal point. For example, if we 
had the number 2.73 appearing in the parenthesis after INT, that is, if we 
had INT(2.73), the resulting value would be 2, In the particular case of the 
expression in this program, when the first record is input, N is equal to 101. 
INT(N/100) divides the value 101 by 100, giving 1.01, and the integer func- 
tion makes an integer (\) out of this value. 

So Dl has the value 1 . Tn this way all parts with values 100-199 will be 
accumulated. When the second record with part number 219 is input, at line 
240 Dl is equal to 1 so that we go to line 330 where departmental subtotals 
(for one) are printed. Then in line 410 Dl has the value of 2 and the pro- 
gram continues to accumulate the subtotals for department two. Similarly, 
when the last record with part number 347 is input, N in line 240 will have 
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the value of 3. The department subtotals (for two) will be printed and Dl in 
line 410 will have the value 3. The subtotals for department 3 will be calcu- 
lated and the next record (EOF) read. Since there are no more records, the 
end of file occurs and the subtotals for department 3 as well as the grand 
totals are printed. 

Sales Commission Exercise: Exercises 

Problem Summary 

Input 

"SALES" file 

Processing 

Accumulate sales and commissions by sales territory and for the file as a 
whole. 

Output 

Territory subtotals and grand totals suitably labelled. 
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(Attach additional paper to complete your program.) 



TERRITORY TERRITORY COMMISSIONS 
NUMBER SALES PAID 



1 17320 839.65 

2 18140 893.6 



Account Balance Exercise: The department is indicated by the first digit 
of the customer number. 



Problem Summary 
Input 

"CUST" file 
Processing 

Accumulate initial balances and final balances by department and for 

the file as a whole. 
Output 

Department subtotals and grand totals suitably labelled. 
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(Attach additional paper to complete your program.) 
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DEPARTMENT 
NUMBER 



BEGINNING 
BALANCE 



ENDING 
BALANCE 



2 120 130 

3 620 890 
TOTAL BEGINNING AND ENDING BALANCES 
Break in 510 



740 1020 



REPORT So far the output of all the programs has been labelled in a manner that 

WRITING BY identifies it. The output of the programs up to now has been brief and satis- 
COMPUTER factory for programmer purposes. The output would be unsatisfactory for 
management purposes because it is too brief and is not self-explanatory to a 
manager. Managers do not read programs, Tt is important that the output be 
self-explanatory with appropriate headings and follow general business for- 
mats. 

The output to the second payroll example consists of the following: 



TOTAL REGULAR HOURS WORKED 552 

TOTAL OVERTIME HOURS WORKED 16 

TOTAL WAGES EARNED BY ALL EMPLOYEES 
Break in 290 



2771.7 



The program can be modified so that the function of the program can be 
made clear in the output. The supporting data that resulted in that output 
can also be printed. The report that we want to produce is usually called a 
payroll report. 

Problem Summary 
Input 

"EMPLOY" file 
Processing 

Accumulate regular hours, overtime hours, and wages for the company. 
Output 

An easily readable and understandable payroll report. 



100 REM THIS PROGRAM TO ACCUMULATE TOTALS FOR REGULAR HOURS 

110 REM OV ER TIME HO U RS g AM D TOTAL WAG E S EARNED IN THE " EMPLOY H 

111 REM FILE. 
120 PRINT 
130 PRINT 

140 PRINT " PAYROLL REPORT" 

150 PRINT 
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160 PRINT 

170 PRINT "EMPLOYEE 

ME GROSS" 

180 PRINT "NUMBER 

S PAY " 

190 PRINT " 



DEPT NAME HOURLY REGULAR OVERTI 
NUMBER RATE HOURS HOUR 



200 OPEN "I" ,1," EMPLOY" 

210 R1=0 

220 V1=0 

230 W1=0 

235 IF EOF(l) THEN 360 

240 INPUT #1, N,D,N$,H,R,V 

260 Rl=Rl+R 

270 V1=V1+V 

280 W1=W1+H*R+1.5*H*V 

290 W=H*R+(1,5*H*V) 

300 PRINT USING" ### ## % %#.## ## 

# #,###. ##";N,D,N$,H,R,V,W 
310 GOTO 235 
360 CLOSE #1 

37 PRINT " ************************************* **************** 
*********** 



380 PRINT USING"TOTALS 

## #,###.##";R1,V1,W1 
32767 END 



^# 



PAYROLL REPORT 



EMPLOYEE 


DEPT 


NAME 


HOURLY 


REGULAR 


OVERTIME 


GROSS 


NUMBER 


NUMBER 




RATE 


HOURS 


HOURS 


PAY 


101 


1 


ADAMS 


5.00 


40 





200.00 


103 


12 


BAKER 


5.60 


40 


4 


257.60 


104 


17 


BRAVE 


4.00 


40 


2 


172.00 


108 


16 


COHEN 


6.25 


38 





237.50 


17 2 


2 


JOHNSON 


3.75 


40 





150.00 


198 


1 


TANNER 


4.25 


36 





153.00 


202 


16 


WILSON 


4.00 


40 





160.00 


206- 


7 


LESTER 


5.25 


40 





210.00 


255 


12 


SCHMIDT 


5.60 


40 


4 


257.60 


281 


12 


MILLER 


6.00 


40 





240.00 


313 


7 


SMITH 


4.25 


40 


4 


195.50 


347 


12 


GRAY 


6.00 


38 





228,00 


368 


1 


WEAVER 


3.50 


40 


2 


150.50 


422 


1 


WILLIAMS 


4.00 


40 





160.00 


•*..*..*.+•***** 


******** 


****** * * * * ? 


********* 


********** 


***************** 



***** 

TOTALS 552 16 2,771 



.70 
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The only new BASIC instruction in this program is PRINT USING. It 
is similar to the PRINT instruction, but it allows us to align numbers in 
columns and print zeroes after decimal points. It also can be used for 
putting commas (,) in large numbers for thousands, millions, etc. The rules 
for PRINT USING are as follows: 



1 . After the words PRINT USING a pair of quotation marks encloses 
what is to be printed on a line. 

2. To indicate a numeric field, use the sharp (#). Its length is determined 
by the number of sharps. 

3. To print a decimal point in a number, use a period (.). Its position is de- 
termined by its placement between sharps (#). The value printed will be 
rounded to the nearest decimal. 

4. To print commas in long numbers, use a comma (,). Its position may be 
determined by its placement between sharps (#). 

5. To indicate an alphabetic field, use a percent sign (%). Its length is de- 
termined by a pair of percent signs and the space between. (Model II 
use a backward slash ( \ ) rather than %.) 

6. After the second quotation mark, a list of the field names to be printed 
on the line, separated by commas, must appear. 

7. If the number of characters in a numeric field to be printed is larger 
than the number of characters in the PRINT USING statement, a per- 
cent (%) will be printed. 



Assume for the examples the following field values: 



N = 101 

N$ - ADAMS 

H = 5.0 

P = 200.0 



]b means a space or blank — it is used on this page to assist you in count- 
ing spaces; it is never used in a program. 
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Examples 



10 


PRINT 


USING 


"### M ;N 




10 


PRINT 


USING 


"}zJ)^### H ;N 




10 


PRINT 


USING 


"###.##";H 




10 


PRINT 


USING 


"W###.##";P 




10 


PRINT 


USING 


"##,###. ##";T 




10 


PRINT 


USING 


"####)z5#.##";N, 


H 


10 


PRINT 


USING 


,, ^%JzJJrfJzJ%";N$ 




10 


PRINT 


USING 


")6%W]6%W" ;N$ 




10 


PRINT 


USING 


" ####%###%" ;N, 


N$ 



Printing Columns 



1 


2 


3 


4 


5 


6 


7 


8 


9 


1 





1 

5 


1 






1 













2 




















2 


, 


4 


7 


6 




4 


4 




1 





1 




5 














A 


D 


A 


M 


S 








A 


D 


A 


M 


S 








1 





1 




A 


D 


A 


M 


S 



In the program the PRINT USING statement appears in line 300. 

300 PRINT USING" ### ## % %#.## 

# #,###. ##";N,D,N$,H,R,V,W 



The first field, N, will be printed in columns 2, 3, and 4. The three sharps in- 
dicate that it is three characters long. The one space after the quotation 
mark prints a blank as the first character. The second field, D, is printed in 
columns 11 and 12. Its length is two characters. The third field, N$, is ten 
characters long. It is alphabetic and the name will be printed in columns 19 
through 28. It is ten characters long because there are eight spaces between 
the percents. The percents are also counted in determining the length of the 
printed field. The fourth field, H, is four characters with a decimal point 
between the second and third numbers. It is printed in columns 29 through 
33. Fields R and V are two and one character long and start in columns 41 
and 52, respectively. The last field, W, is printed in columns 56 through 63 
and will appear with a decimal point, and comma if there are numbers that 
need them. 

The second PRINT USING statement appears in line 380. It follows all 
of the rules given above, with one extension. The word "TOTALS" is to be 
printed in the first six columns of the total row. To do this, insert the word 
where you want it to print. 

The program does not have a STOP instruction before the END. This 
STOP instruction was removed after the program was tested so that the 
message Break in 390 would not appear on the report. You may remove the 
final STOP instruction after you run the program and it is correct. Then run 
the program a final time and the message will not appear at the bottom of 
the report. 

It is very important to make sure that you know the maximum length 
of a field in order to specify its length in a PRINT USING instruction. If 
you specify a numeric field larger than its maximum value, the numbers will 
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SUMMARY 



be right justified (printed using the far right positions first). Alphabetic 
fields are printed using the far left positions first (left justified). As a result 
of this, your printed output will line up in columns that are easily readable. 

The preceding program is one example of how a report may be printed 
so that it is easily readable and understandable. Columns of numbers can be 
made neat with the PRINT USING instruction. 

In this chapter you have been shown how to accumulate subtotals and totals 
for a file. A use of the BASIC instruction INT has been explained for cases 
where department numbers are part of some identification number. Finally 
you have seen how to produce reports for management that are easily read- 
able and understandable with the PRINT USING instruction. 



BASIC Instructions Introduced: 

INT(X) The value X is made into an integer (whole number). 

PRINT USING Prints columns of data in a manner that they may be 
easily read. 



PROBLEMS 1. 



2, 



Use the "XK1" file from the first problem in Chapter 4 (page 89) to ac- 
cumulate the totals from Time 1 and Time 2. Output these totals suita- 
bly labelled. 

Use the "XK1" file to accumulate departmental subtotals from Time 1 
and Time 2 assuming that departments are defined as follows: 
Department ID Number 

1 100-199 

2 200-299 

3 300-399 

4 400-499 
Output these totals suitably labelled. 

Use the "INV" file to accumulate department subtotals and grand totals 
for units received. Assume department one has part numbers 100-199, 
department two has part numbers 200-299, department three has part 
numbers 300-399. Output the totals suitably labelled. 

4. Modify your program that produces sales and commission department 
subtotals and a rand totals from the "SALES" file so that it may be read 
by management. Title it: Sales and Commission Report. 

5. Modify your program that produces initial balances and final balances 
by department and grand totals from the "CUST" file so that it may be 
read by management. Title it: Customer Sales Report. 



3. 
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6. Modify the program that produces beginning and ending inventory 
value by department and grand totals from the "INV" file so that it may 
be read by management. Title it: Inventory Value Report. 

7. Modify your program in Problem 3 above so that you produce a man- 
agement report. Title it: Units Issued by Departments. 
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At the end of this chapter you should be able to: 

® Add records to sequential files 

• Delete records from sequential files 

Files are not static. The contents of files change as the business changes. In 
the payroll example, employees are hired and new employee records are 
added to the files. People also leave or retire, and the old employee records 
have to be dropped from the file. Customers are acquired and new customer 
records have to be inserted into a file. Or a product becomes obsolete and it 
must be deleted from the hie. 

In this chapter we will show you how to add and delete records using 
sequential files. 

An accidental omission has occured. When the data for the employee payroll 
(Table 4-1, Chapter 4) was given, two records were lost. Now they have 
been found, Fortunately, the payroll has not been prepared. But these two 
records have to be added to the file before the payroll program can be run. 
This hypothetical situation (it would never occur in real life, would it?) 
serves as the basis for showing you how to add records to a file. Let's assume 
that the two missing records are the following: 

Employee Department Employee Hourly Regular Overtime 

Number Number Name Rate Hours Hours 

425 17 Jones 4.80 40 2 

426 17 Cooper 4.25 38 

As you can see, Jones and Cooper belong at the end of the "EMPLOY" hie. 
So we need to find the end of the file and add the records at that point. 

But here we run into a limitation of sequential files. We can either read 
from a file or print into a file , but we cannot both read and print the sajn&-~» 
sequential file unless we are only adding records to the end of a file. If 
records are to be added between existing records or old records are to be 
changed, we need to read from one file and print into anot her file.. Since this 
is the most typical situation we will use the two file appr oach in this _charjtej-. 

The problem has two sets of input data. First, the payroll file with its 
records of six fields: 

® Employee number 

• Department number 
© Employee name 

• Hourly rate of pay 

© Regular hours worked 
© Overtime hours worked 



Performance 
Objectives 



ADDING 
RECORDS 
TO A RLE 
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Secondly, the two omitted records with the same fields (which must be 
added from the keyboard). For output the problem requires a complete file 
as well as messages to the keyboard operator., 

The processing consists of reading the records in the old file and writing 
them into a new file. When the end of data has been reached in the old file, 
then records are entered from the keyboard and added to the new file. 

Problem Summary 

Input Data 

1. "EMPLOY" file with six fields per record: 
© ""^Employee number 

• Employee department number 
<§ Employee name 

• Hourly rate 

• Regular hours 

• Overtime hours 

No validity checks necessary since all fields have already been 
checked. 

2. New records to be added to the file, each record consisting of six 
fields. 

Field name Valid Range 

Employee number 100 to 999 

Employee department number 1 to 20 

Employee name - 

Hourly rate 3.05 to 15,00 

Regular hours worked to 40 

Overtime hours worked to 20 

Processing 

Take data from the old file and write into new file until end of data is 
reached. Then take data from keyboard and place valid records into new 
file. 

Output 

Instructions for operator and complete payroll data file. 

The program, therefore, has to be able to: 

1. Link to the file "EMPLOY". 

2. Set up a new file. 

3. Read from the old file and write into new tile until end ot data is 
reached 

4. Get data from terminal and check it for valid range, 

5. Write valid records into new file. 

6. Stop when new records have been added. 
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The flowchart for the program is given in Figure 6-1. 



i 


r Start ^ 










1 








Open 
Files 








^ 


r 








\ 






Read a Record 
from EMPLOY 














i 


r 


f 

^ NO I 






<Endof File?>~~^ 


'-i 


/ Write J 

Operator / 
Message / 




Tno 




1 


r 




Write Record 
into EMPL02 




'Get Data j 
from Terminal / 


















K- 


YES ^ \, 

1 — -«Qnd of Data?> 

Tno 


f Terminate 


>^\s Data\^ 


Print Error / 
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Flowchart for Adding Records to the End of a File 



Figure 6-1 
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100 REM THIS PROGRAM APPENDS RECORDS TO A FILE 
110 REM 

120 REM OPEN FILES FOR INPUT AND OUTPUT 
130 OPEN "I",!," EMPLOY" ' -^ — 
140 OPEN "O" , 2, "EMPL02" 
150 REM 

160 REM READ THE FILE "EMPLOY" 
17 REM CHECK FOR END OF FILE 
180 REM AND PRINT INTO THE FILE "EMPLfil" 
190 REM 

195 IF EOF(l) THEN 300 
200 INPUT #1, N,D r N$,H,R,V 
220 PRINT #2, N;D;N$;", ";H;R;V 
230 GOTO 195 

280 REM READ DATA FROM THE KEYBOARD AND 
290 REM ADD IT TO FILE EMPL02 

^300 PRINT "TYPE EMPLOYEE NUMBER, DEPARTMENT NUMBER" 
310 PRINT "EMPLOYEE NAME, HOURLY RATE, REGULAR HOURS" 
320 PRINT "AND OVERTIME HOURS — SEPARATED BY COMMAS" 
330 PRINT "WHEN FINISHED TYPE 99 , 99 , AA, 99 , 99 , 99 " 
340 INPUT N,D,N$,H f R,V 
350 REM 

360 REM CHECK FOR END OF DATA 
370 IF N=99 THEN 590 
380 REM 

390 REM CHECK THE DATA FOR VALIDITY 
400 REM 

410 IF N<100 THEN 540 
420 IF N>999 THEN 540 
430 IF D<1 THEN 540 
440 IF D>20 THEN 540 
450 IF H<3.05 THEN 540 
460 IF H>15.00 THEN 540 
470 IF R<0 THEN 540 
480 IF R>40 THEN 540 
490 IF V<0 THEN 540 
500 IF V>20 THEN 540 
510 PRINT #2, N?D;N$; n ,";H;R;V 
520 GOTO 300 

540 PRINT "*** ERROR IN INPUT DATA -- PLEASE RETYPE" 
550 GOTO 300 
560 REM 

570 REM TERMINATE PROGRAM 
580 REM 

590 CLOSE #1,#2 
e;nn CTOB 

^9767 END 
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TYPE EMPLOYEE NUMBER, DEPARTMENT NUMBER 

EMPLOYEE NAME, HOURLY RATE, REGULAR HOURS 

AND OVERTIME HOURS --SEPARATED BY COMMAS 

WHEN FINISHED TYPE 99 , 99 , AA, 99 , 99 , 99 

? 425, 17, JONES, 4. 80, 40, 2 

TYPE EMPLOYEE NUMBER, DEPARTMENT NUMBER 

EMPLOYEE NAME, HOURLY RATE, REGULAR HOURS 

AND OVERTIME HOURS — SEPARATED BY COMMAS 

WHEN FINISHED TYPE 99 , 99 , AA, 99 , 99 , 99 

? 426, 17, COOPER, 4. 25, 38,0 

TYPE EMPLOYEE NUMBER, DEPARTMENT NUMBER 

EMPLOYEE NAME, HOURLY RATE, REGULAR HOURS 

AND OVERTIME HOURS — SEPARATED BY COMMAS 

WHEN FINISHED TYPE 99 , 99 , AA, 99 , 99 , 99 

? 99, 99, AA, 99, 99, 99 

Break in 600 



In order to determine whether the program worked, print the "EMPL02' 
file with the following program. 



100 OPEN "I" ,1,"EMPL02" 
10 5 IF EOF(l) THEN 250 
110 INPUT #1,N,D,N$,H,R,V 
120 PRINT N;D,N$,H,R;V 
130 GOTO 105 
250 CLOSE #1 
500 STOP 
32767 END 



101 


1 


ADAMS 


5 


103 


12 


BAKER 


5.6 


104 


17 


BRAVE 


4 


108 


16 


COHEN 


6.25 


172 


2 


JOHNSON 


3.7 5 


198 


1 


TANNER 


4.25 


202 


16 


WILSON 


4 


206 


7 


LESTER 


5.25 


255 


12 


SCHMIDT 


5.6 


281 


12 


MILLER 


6 


313 


7 


SMITH 


4.25 


347 


12 


GRAY 


6 


368 


1 


WEAVER 


3.5 


422 


1 


WILLIAMS 


4 


425 


17 


JONES 


4.8 


426 


17 


COOPER 


4.25 



40 





40 


4 


40 


2 


38 





40 





36 





40 





40 





40 


4 


40 





40 


4 


38 





40 


2 


40 





40 


2 


38 






Break in 500 
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This program contains no new statements. The TRS-80 allows a much 
shorter version of this program only if we want to add records to the end of 
the file. But in order for you to better understand the logic of the next 
program, this program was written the long way. 

Look again at the program. As you can see, it transfers all of the records 
from the old file to the new file before it gets any data from the terminal But 
what if the employees Jones and Cooper had employee numbers 154 and 232 
respectively? Then the program would still place their records at the end of 
the file, but at the end of the file, their records would be out of sequence by 
employee number. 

We must change the program so that new records fit into the middle of 
the new file. The location of these records is determined by the sequence of 
identification numbers, in this case employee number Records to be added 
fit into the file after records with lower numbers, and before records with 
higher numbers. 

However, the computer cannot see the whole file. It operates on the file 
one record at a time. It will know where to insert a record only after it has 
read a record from the old file with a higher identifying number. 

Let's look at an example to illustrate this point. Below you have the em- 
ployee numbers of a section of the payroll file. And the employee numbers 

Oi lli£ ICL-OiGb lO Uu aduCU, 

Employee New Employee 

Number Numbers of Records 

in File to be Added 

104 154 

108 232 

172 
198 
202 
206 
255 
282 

Now look at the first number in each column. Remember, the employee 
number stands for the complete record. With the first number in each col- 
umn you have the whole record. You can see that record 154 belongs after 
record 104. Hence 104 is transferred to the new file 

Mnw rparl thp rtpvt rf*mrr\ in thp filp — TOR Aaain cinrp it ic Ipcc than thp 

-.«« ^ „ A < * 1- .-!. r> A A - A 1 c/t : + -, ~> c + - „ „ „ x\~^-~ -A * „ 4. V - ,-.-.-,. CI, Tl n- ~ „ -.-.., ,.,. .... „ . 

iuuui lu uc auutu U'-r, it &*-<-£> Li aiioioi i t;u lu iiic new iiic, vv lien t yuu iiuvv 



read the next record, we have the following position. 
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Record to be Added Record from Old File Records in New File 

154 172 104 

108 

Here the record from the old file is greater than the record to be added. 
Therefore the record to be added is placed into the new file. The new file 
now consists of three records in sequential (ascending) order- 104, 108 and 
154. 

Since we do not know where the next record will fit, until we have read 
it, a new record to be added is obtained and the comparison is repeated. In 
our example, the record to be added is 232. But it could just as easily have 
been record 155 or 163 or 171. In that case, the record also should be placed 
prior to record 172. 

Think your way through the process of placing record 232 into the new 
file. Read the old file, one record at a time. Move all records with lower em- 
ployee numbers to the new file. Once you read a record with a higher ID 
number, then place the record to be added into the new file. 

You have been playing "computer" when you think through a problem 
in this excruciatingly detailed way. And very simple thinking also; but that 
is the way the simple-minded computer works: one elementary operation at 
a time on small amounts of data. 

The general pattern of record insertion hinges on two things: 

1. The old records are in ascending order. 

2. The program must find a record that is larger than the one that has to be 
inserted into the sequence. 

The program therefore has to transfer all records with lower employee num- 
bers to the new file. Then the record to be added can be written into the new 
file. Then the record with a higher employee number is written into the new 
file. Finally, another record to be added is input and the process continued. 
A program to add records to a file is shown below. The range checks of 
the records to be added have been removed for brevity and to highlight the 
program logic. 



Problem Summary 
Input 

"EMPLOY" file in employee number sequence. Records to be added, 

also in employee number sequence. 
Processing 

Place records to be added into their proper location in the file. 
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Output 

Data entry operator instructions and complete file of payroll records. 



Here is the program and flowchart (Fig. 6-2) for placing records in the 
middle of a file: 



10 REM THIS PROGRAM ADDS RECORDS TO THE MIDDLE OF THE FILE 

100 REM OPEN THE FILES 

110 REM 

120 OPEN "I",!," EMPLOY" 

130 OPEN "O" ,2, "EMPL03" 

140 REM 

150 REM GET A RECORD FROM THE TERMINAL 

160 REM 

170 REM 

180 PRINT "TYPE EMPLOYEE NUMBER, DEPARTMENT NUMBER, EMPLOYEE NAME" 

190 PRINT "HOURLY RATE, REGULAR HOURS, OVERTIME HOURS" 

20 PRINT "SEPARATED BY COMMAS" 

210 PRINT "WHEN FINISHED TYPE 99 , 99 , AA , 99 , 99 , 99 " 

220 INPUT Nl,Dl,Nl$,Hl,Rl,Vl 

230 REM 

240 REM CHECK FOR END OF DATA FROM TERMINAL 

250 REM 

260 IF Nl=99 GOTO 670 

270 REM 

280 REM SEARCH THE FILE FOR NUMBER SEQUENCE 

290 REM 

295 IF EOF(l) THEN 670 

300 INPUT #1, N,D,N$,H,R,V 

320 IF NKN THEN 420 

330 REM 

340 REM RECORD FROM FILE LESS THAN RECORD FROM TERMINAL 

350 REM 

360 PRINT #2,N;D?N$; ",";H;R;V 

370 GOTO 295 

380 REM ^ 

390 REM RECORD FROM TERMINAL IS LOWER THAN THE ONE IN THE FILE 

400 REM PRINT THE RECORD IN THE NEW FILE 

410 REM 

420 PRINT #2, N1;D1;N1$; ,, ,";H1;R1;V1 

430 REM 

440 REM GET ANOTHER RECORD FROM THE TERMINAL 

450 REM 

460 PRINT "TYPE EMPLOYEE NUMBER, DEPARTMENT NUMbiSK, Mrbuiaa 

47 PRINT "NAME, HOURLY RATE, REGULAR HOURS, OVERTIME HOURS " 

480 PRINT "WHEN FINISHED TYPE 99 , 99 , AA, 99 , 99 , 99 " 

490 INPUT N1,D1,N1$,H1,R1,V1 

500 IF Nl=99 GOTO 580 

530 GOTO 320 
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540 REM 

550 REM NO MORE RECORDS TO BE ADDED 

560 REM TRANSFER REMAINING RECORDS TO THE NEW FILE 

57 5 IF EOF(l) THEN 67 

580 PRINT #2, N;D;N$; n ,";H;R;V 

590 INPUT #1, N,D,N$,H,R,V 

60 GOTO 57 5 

620 REM ^^ 

630 REM 

670 CLOSE #1,#2 

700 STOP 

32767 END 



TYPE EMPLOYEE NUMBER, DEPARTMENT NUMBER, EMPLOYEE NAME 

HOURLY RATE, REGULAR HOURS, OVERTIME HOURS 

SEPARATED BY COMMAS 

WHEN FINISHED TYPE 99 , 99 , AA, 99 , 99 , 99 

? 154, 17, JONES, 4. 80, 40, 2 

TYPE EMPLOYEE NUMBER, DEPARTMENT NUMBER, EMPLOYEE 

NAME, HOURLY RATE, REGULAR HOURS, OVERTIME HOURS 

WHEN FINISHED TYPE 99 , 99 , AA, 99 , 99 , 99 

? 232, 17, COOPER, 4. 25, 38,0 

TYPE EMPLOYEE NUMBER, DEPARTMENT NUMBER, EMPLOYEE 

NAME, HOURLY RATE, REGULAR HOURS, OVERTIME HOURS 

WHEN FINISHED TYPE 99 , 99 , AA, 99 , 99 , 99 

? 99, 99, AA, 99, 99, 99 

Break in 700 



To determine whether the program worked, print the "EMPL03" file. This 
may be done by modifying your program that prints the "EMPLQ2" file. 
The change necessary is 

100 OPEN*T\1,"EMPL03" 
Then run the changed program. 
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206 
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LESTER 


232 


17 
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Example 



Let's take another look at this program. Notice how the end of data in 
the file (EOF) for the old file and the end of data from the terminal (EOD) 
decisions appear a number of times. The program is made complicated by 
having to consider ail possibilities: 

1 . There are no records to be added. 

2. The file is empty when more records have to be added. (In our example, 
the program merely terminated when that happened; see line 295. The 
extension of handling such records is left as an exercise for you.) 

3. No more records have to be added while there are still records in the file. 

4. The file is empty and no records need to be added. 

For all four cases the program has to provide a means of reaching a satisfac- 
tory conclusion. In our example, the program merely terminates without tell- 
ing the operator what has happened. Maybe you can think of some way to 
modify the program so that a message appears that would identify why the 
program stopped. 

Inventory Example: To the inventory file ("INV"), add the following two 

records. 



Input 



Record 1 
Record 2 
"INV" file 
Processing 

Output 

Data entry operator instructions 
New file "INVT 
Print the file "INVT 



Problem Summary 

Part Beginning Units Units 

Number Units Received Issued Cost 

112 50 10 8,25 

300 150 70 6.85 



F iV 
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Read a 

Record from 

Terminal 




YES fi . \ 

&j Terminate J 



Read a 
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File 
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NO 




YES 
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to New File 
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Record from 

Terminal 



Write Record 

of Old File 

into New File 



Write Record 



Read a Record 




NO 
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-f Terminate J 

Flowchart for Adding a Record into the Middle of a File Figure 6-2 
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100 REM PROGRAM TO ADD INVENTORY RECORDS TO THE MIDDLE OF THE INV FIL 

110 REM 

120 REM LINK TO FILES 

130 REM 

140 OPEN ,, I",1,"INV" 

150 OPEN "0",2,"INV1" 

160 REM 

170 REM GET RECORD TO BE ADDED FROM TERMINAL 

180 REM 

190 PRINT"ENTER PART NUMBER, BEGINNING UNITS, UNITS RECEIVED," 

200 PRINT n UNITS ISSUED, AND UNIT COST — SEPARATED BY COMMAS" 

210 PRINT"WHEN FINISHED — TYPE 99 FOR EACH FIELD" 

220 INPUT P9,B9,R9,I9,C9 

230 REM 

240 REM CHECK FOR END OF DATA FROM TERMINAL 

250 REM 

260 IF P9=99 THEN 1130 

270 REM 

280 REM SEARCH FILE FOR PLACE TO ADD NEW RECORDS 

290 REM 

310 IF EOF(l) THEN 480 REM INV IS EMPTY BUT ADD MORE DATA 

320 INPUT #1, P,B,R1,R2,C 

330 IF P9<P THEN 440 

340 REM 

3 50 REM RECORD FROM TERMINAL BREATER THAN RECORD FROM FILE 

360 REM THEREFORE PLACE RECORD FROM FILE INTO INV1 

370 REM 

380 PRINT #2, P;B;R1;R2;C 

390 GOTO 310 

400 REM 

410 REM RECORD FROM TERMINAL LESS THAN RECORD FROM FILE 

420 REM THEREFORE PLACE RECORD FROM TERMINAL INTO INV1 

430 REM 

440 PRINT #2, P9;B9;R9; I9;C9 

450 REM 

460 REM GET ANOTHER RECORD FROM TERMINAL 

470 REM 

480 PRINT"ENTER PART NUMBER, BEGINNING UNITS, UNITS RECEIVED," 

490 PRINT "UNITS ISSUED, AND UNIT COST — SEPARATED BY COMMAS" 

500 PRINT "WHEN FINISHED -- TYPE 99 FOR EACH FIELD" 

510 INPUT P9,B9,R9,I9,C9 

520 REM 

5 30 REM CHECK FOR END OF DATA ENTRY 

540 REM 

550 IF P9=99 THEN 630 

560 GOTO 330 

570 REM 
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580 REM NO MORE RECORDS TO BE ADDED, BUT RECORDS STILL IN INV 

590 REM TRANSFER REMAINING RECORDS FROM OLD FILE (INV) 

600 REM INTO NEW FILE ( INV1 ) 

610 REM 

630 PRINT #2, P;B;R1;R2;C 

635 IF EOF(l) THEN 810 REM **INV IS EMPTY AND DATA ENTRY FINISHED 

640 INPUT #1, P,B,R1,R2,C 

650 GOTO 630 

660 REM 

780 REM 

790 REM NEW FILE HAS BEEN GENERATED, SO PRINT IT OUT 

800 REM 

810 CLOSE #1,#2 

820 OPEN "I",l, "IN VI" 

830 REM 

840 REM PRINT HEADINGS 

850 REM 

860 PRINT 

870 PRINT 

880 PRINT 

890 PRINT "PART" , "BEGINNING" , "UNITS", "UNITS", "UNIT" 

900 PRINT "NUMBER", "UNITS", "RECEIVED", "ISSUED " , "COST" 

910 PRINT " ", " ", " »,*• », " » 

920 IF EOF(l) THEN 1130 REM** NEW FILE INVl HAS BEEN WRITTEN 

930 INPUT #1, P,B,R1,R2,C 

940 PRINT P,B,R1,R2,C 

950 GOTO 920 

1120 REM 

1130 CLOSE #1 

1140 STOP 

32767 END 



RUN 

ENTER PART NUMBER , BEGINNING UNITS, UNITS RECEIVED, 

UNITS ISSUED, AND UNIT COST — SEPARATED BY COMMAS 

WHEN FINISHED ~ TYPE 99 FOR EACH FIELD 

? 112,0,50,10,8.25 

ENTER PART NUMBER, BEGINNING UNITS, UNITS RECEIVED, 

UNITS ISSUED, AND UNIT COST ~ SEPARATED BY COMMAS 

WHEN FINISHED -- TYPE 99 FOR EACH FIELD 

? 300,0,150,70,6.85 

ENTER PART NUMBER, BEGINNING UNITS, UNITS RECEIVED, 

UNITS ISSUED, AND UNIT COST — SEPARATED BY COMMAS 

WHEN FINISHED — TYPE 99 FOR EACH FIELD 

? 99, 99,99,99,99. 



142 / Adding ,and Deleting Records 



PART 


BEGINNING 


UNITS 


UNITS 


UNIT 


NUMBER 


UNITS 


RECEIVED 


ISSUED 


COST 


101 


120 


40 


45 


5 


112 





50 


10 


8.25 


219 


60 


60 


80 


3.25 


226 


5 


110 


90 


2.95 


235 


100 





50 


6.2 


300 





150 


70 


6.85 


347 





50 


20 


4.6 



This example contains one new feature: A file is opened, closed, and 
reopened. 

In line 150 the file "INV1" was opened and the program wrote into the 
file. However, the problem summary specifies that the file should also be 
printed. Therefore "INV1" must be opened again, as shown in line 820. But 
before a file can be changed from writing to reading, it must be closed as in 
line 810. 

It is perfectly legal for a program to open a file first for writing, close 
it, and then open it again for reading. When it is opened again, the records 
are read starting at the beginning of the file. 

Tf we focus only on the end-of-file condition, then three locations in the 
program are possible. 

1. The EOF was encountered in line 310. 

2. The EOF was encountered in line 635. 

3 . The EOF was encountered in line 920. 

If the culprit is line 310, then we have run out of data in "INV", but there 
are more records to be added. If line 635 was the cause of the EOF, then we 
have run out of data in the file "INV" and no more records have to be 
added. If line 920 caused the EOF, then the program was printing out the 
new file "INV1". 

In the first case, EOF in line 310, the program should get more records 
from the keyboard and add them to "INV1". In the second case, EOF in line 
635, data entry is finished and the program should close the files and start to 
print out "INV1". In the third case, EOF in line 920, the program is finished 

and it should terminate. 

ufiiK fV.ir i^™^> tUa nrAarom ran tiHH rpmrrk to the middle of a file. 
\^~,, „u rt ,,i^i «~+;~~ +v,r» rtronrtP r^la^Am^nt nf RPM's in lines 310. 635. 

and 920. They appear on the same line with the IF EO. 
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TRS-80 you can document each line with a REM after any program instruc- 
tion. The computer ignores the REM and what follows it on a line. 

Account Balance Exercise: The firm has acquired two new customers. Exercises 

Write a nmaram to add their records to the customer file. 



Problem Summary 



Input 



Customer 

Number Name Balance Payments Charges 
Record 1 2995 Jones 50 

Record 2 3370 Moats 75 

Old "CUST" file 

Processing 

Get new customer data from the terminal and place it at the end of the 

"CUSTl"file. 
Output 

Instructions for data entry 

New customer file "CUST1" 

Print the "CUST1" file 



144 / Adding and Deleting Records 



(A ttach a dditional paper to complete your program,) 



TYPE CUSTOMER NUMBER, CUSTOMER NAME, BALANCE 

PAYMENTS, CHARGES SEPARATED BY COMMAS 

WHEN FINISHED TYPE 999 , AAA, 999 , 999 , 999 

? 2995, JONES, 0,0, 50 

TYPE CUSTOMER NUMBER, CUSTOMER NAME, BALANCE 

PAYMENTS, CHARGES SEPARATED BY COMMAS 

WHEN FINISHED TYPE 999 , AAA, 999 , 999 , 999 

? 3370, MOATS, 0,0, 75 

TYPE CUSTOMER NUMBER, CUSTOMER NAME, BALANCE 

PAYMENTS, CHARGES SEPARATED BY COMMAS 

WHEN FINISHED TYPE 999 , AAA, 999 , 999 , 999 
? 999, AAA, 999,999,999 



CUSTOMER 
NUMBER 



2741 
2937 
2995 



CUSTOMER 
NAME 

FERNWOOD 

BLAKEY 

JONES 



BALANCE 



120 







PAYMENTS 

120 







CHARGES 

40 
90 
50 
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3246 






GREY 


250 


33 5 9 






PHILLIPS 


90 


3370 






MOATS 





3527 






LOMBARD 


100 


Break 


in 


1050 







130 
40 

100 



17 
100 
75 
250 



Sales Commission Exercise: The firm has added two salesmen. Add their 
records to the file. 



Problem Summary 



Input 



Sales Commission 

Territory Salesman Gross Sales Rate 

Record 1 1 Kevin 2500 .045 

Record 2 2 Jack 500 .05 

"SALES" file 
Processing 

Get the data from the terminal and place it in the file ("SALES 1") by 

sales territory. 
Output 

Instructions for data entry 

New "S ALES 1" file 

Print the "SALES 1" file 
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(A liach additional pape r w complet e your p rogr a m.) 
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RUN 

TYPE SALES TERRITORY , SALESMAN , GROSS 

SALES, AND COMMISSION RATE . —SEPARATE WITH COMMAS 

WHEN FINISHED TYPE 0,AA,0,0. 

? l,KEVIN r 2500,.O45 

TYPE SALES TERRITORY, SALESMAN, GROSS SALES 

COMMISSION RATE — SEPARATED BY COMMAS 

WHEN FINISHED TYPE 0,AA,0,0 

? 2, JACK, 500, .05 

TYPE SALES TERRITORY , SALESMAN , GROSS SALES 

COMMISSION RATE — SEPARATED BY COMMAS 

WHEN FINISHED TYPE , AA , , 

? 0,AA,0,0. 



SALES 
TERRITORY 



1 
1 
1 
2 
2 
2 
3 
3 
3 
Break in 1030 



SALESMAN 

BILL 

JOE 

KEVIN 

TOM 

PHIL 

JACK 

CLYDE 

HARRY 

BOB 



GROSS 
SALES 

12050 

5270 

2500 

6940 

11200 

500 

7340 

9460 

14690 



COMMISSION 
RATE 

.05 

.045 

.045 

.04 

.055 

.05 

.04 

.045 

.05 



Sometimes it is necessary to delete records from sequential files. Employees 
quit or retire. Occasionally an employee may be fired Items in inventory be- 
come obsolete. Suppliers may be dropped. Old customers may shift their 
buying elsewhere. There are many instances when files need to be purged of 
records that are no longer needed. 

In such cases it is necessary to find the records and delete them. Here 
again the nature of computer files places a burden on the programmer. 
Reading a record does not remove it from a file. 

Therefore to delete a record, we have to read all of the records in a se- 
quential file, and write all of the records into a new Rle-except those records 
that should be deleted. 

Another aspect to consider is that sequential files are in sequence—and 
you can't go back. Once a record has been processed, it can only be found 
again if we start from the beginning of the file. 

Therefore if there is more than one record that has to be deleted, they 
also must be in sequence. Otherwise, the whole file has to be read for each 
record to be removed. 

So let's assume that we have to delete some records from our payroll file, 
for example, records with employee numbers 104 and 202. A flowchart (Fig. 
6-3) and program to do this follow: 



DELETING 

RECORDS 

FROM A FILE 
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100 REM PROGRAM TO DELETE RECORDS FROM A FILE 

110 REM 

120 REM OPEN FILES 

130 REM 

140 OPEN "I" r l," EMPLOY" 

150 OPEN "0" , 2, "EMPL04" 

160 REM 

170 REM GET THE ID NUMBER OF THE RECORD TO BE DELETED 

180 REM 

200 PRINT 

210 PRINT "TYPE THE ID NUMBER OF THE RECORD TO BE DELETED" 

220 PRINT "IF FINISHED — TYPE 99" 

230 INPUT Nl 

240 IF Nl^=99 THEN 570 

2 50 REM 

260 REM READ A RECORD FROM THE EXISTING FILE 

270 REM 

280 REM TEST FOR END OF FILE 

290 REM 

300 IF EOF(l) THEN 640 

310 REM 

320 INPUT #1,N,D,N$,H,R,V 

330 REM 

340 REM CHECK IF RECORD SHOULD BE DELETED 

350 REM 

360 IF N1=N THEN 450 

370 REM 

380 REM SINCE ID NUMBERS ARE NOT EQUAL THE RECORD REMAINS 

390 REM 

400 PRINT #2, N;D;N$; ", ";H;R;V 

410 GOTO 280 

420 REM 

4 30 REM ID NUMBERS EQUAL? RECORD IS REMOVED 
440 REM 

450 PRINT "RECORD REMOVED" ; N ; D; N$ ; H; R?V 

460 GOTO 200 

470 REM 

480 REM END OF FILE REACHED WITH THE RECORD NOT FOUND 

490 REM 

500 PRINT "END OF FILE REACHED" 

510 PRINT "RECORD " ; Nl ; " NOT FOUND" 

520 GOTO 640 

530 REM 

540 REM NO MORE RECORDS TO BE DELETED, TRANSFER REMAINING 

550 REM RECORDS FROM THE OLD FILE TO THE NEW FILE 

5 60 REM 

570 IF EOF(l) THEN 640 

580 INPUT #1,N,D,N$,H,R,V 

590 PRINT #2 r N;D;N$;",";H;R?V 

600 GOTO 570 

610 REM 

6 20 REM END OF PROGRAM 
630 REM 



Deleting Records from a File / 149 



640 CLOSE #1,#2 
650 STOP 
32767 END 



TYPE THE ID NUMBER OF THE RECORD TO BE DELETED 

IF FINISHED — TYPE 99 

? 104 

RECORD REMOVED 10 4 17 BRAVE 4 40 2 

TYPE THE ID NUMBER OF THE RECORD TO BE DELETED 

IF FINISHED — TYPE 99 

? 20 2 

RECORD REMOVED 20 2 16 WILSON 4 40 

TYPE THE ID NUMBER OF THE RECORD TO BE DELETED 

IF FINISHED — TYPE 99 

? 99 

Break in 650 



To determine whether the program worked, print the "EMPL04" file. 
Modify your program that prints the "EMPLG3" file as follows and run it. 



100 OPEN'T',1,"EMPL04" 



101 


1 


ADAMS 


5 


103 


12 


BAKER 


5.6 


108 


16 


COHEN 


6.25 


172 


2 


JOHNSON 


3.75 


198 


1 


TANNER 


4.25 


206 


7 


LESTER 


5.25 


255 


12 


SCHMIDT 


5.6 


281 


12 


MILLER 


6 


313 


7 


SMITH 


4.25 


347 


12 


GRAY 


6 


368 


1 


WEAVER 


3.5 


422 


1 


WILLIAMS 


4 



40 





40 


4 


38 





40 





36 





40 





40 


4 


40 





40 


4 


38 





40 


2 


40 






There are no new statements in this program. Just old instructions in a new 
arrangement. But what an arrangement! Three input statements, four deci- 
sions, two prints to a file, and many explanatory REM statements. 

When we look at such a program, the mind boggles at the amount of 
detail But let's look at it as a computer would see it-one instruction at a 
time. That way the whole process is simplified. 
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CEE3 



Get Record 
ID from 
Terminal 



NO 



Get Record 

from Old 

Fiie 




YES 




YES 




Read a 
Record 



Write a 
Record 



Write 
W'RECORD NOT 

FOUND 



1 



C 



Terminate 



) 



Figure 6-3 



Flowchart for Deleting Records from a File 



We start by getting the identification number of a record (employee 

«,imKo^ tr\ Kp rif>\c>tRr\ from thp terminal: 

//the data is not finished (ID number is not 99) 
Then 

We read a record from the old file 
// the file is empty 
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Then print the record not found message and terminate 
Else (there are records in the file) 
If the keyboard ID matches the record ID from the file 
Then the record deleted message is 

printed and we go back to get another 
record from the keyboard 
Else (record ID does not match keyboard ID) 
The record is printed in the new file 
and we go back to get another record 
Else (there are no more records to be deleted) 

If there are no more records in the file (we might have deleted the 
last record in the file) 
Then terminate 

Else Read a record from the file 
Print it in the new file 
Go back to check end of file (EOF) again. 

Notice that when we look at the program from this viewpoint, we do not 
look forward. Rather, we work with the limited amount of data available at 
any particular time. By golly, the computer is abysmally ignorant; so, we 
need to be very precise and consider all possibilities in order to cover all ba- 
ses in our programs -before they are written. Otherwise, if something is over- 
looked and that particular condition occurs, the program will not work. 

Look at this program again. Then review the other examples provided. 
After that you can practice thinking logically by doing the exercises. 

Inventory Example: Delete from the new inventory file ("INVT) the Example 
records for Part Numbers 101, 219, and 300. Print the new file. 



100 REM THIS PROGRAM DELETES RECORDS FROM THE INVENTORY FILE 

110 REM 

120 REM OPE)N FILE FOR INPUT AND OUTPUT 

130 REM 

140 OPEN "I", 1, "INV1" 

150 OPEN "O" , 2, "INV2" 

160 REM 

170 REM GET THE PART NUMBER FOR THE ITEM TO BE DELETED FROM THE KEYBOARD 

180 REM 

190 PRINT "TYPE THE PART NUMBER OF THE RECORD TO BE DELETED" 

200 PRINT "WHEN FINISHED — TYPE 99" 

210 INPUT Nl 

220 IF Nl=99 THEN 550 

230 REM 

240 REM RE A RECORD FROM THE EXISTING FILE 

250 REM 

260 REM CHECK FOR END OF FILE 
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270 REM 

280 IF EOF(l) THEN 480 

290 REM 

300 INPUT #1,N,B,R1,R2,C 

310 REM 

320 REM CHECK TO SEE IF THE RECORD SHOULD BE DELETED 

330 REM 

340 IF N1=N THEN 430 

350 REM 

360 REM ID NUMBERS NOT EQUAL ~ RECORD REMAINS IN THE FILE 

365 REM PRINT RECORD IN THE FILE 

370 REM 

380 PRINT #2,N;B;R1;R2;C 

383 REM 

385 REM READ ANOTHER RECORD FROM THE FILE 

390 GOTO 280 

400 REM 

410 REM ID NUMBERS EQUAL — RECORD NOT TRANSFERRED 

420 REM 

430 PRINT "RECORD REMOVED" ; N ; B; Rl ,R2 ,C 

432 REM 

435 REM GET THE NEXT RECORD TO BE REMOVED FROM THE TERMINAL 

440 GOTO 190 

450 REM 

460 REM END OF FILE POUND WITH RECORD NOT FOUND 

470 REM 

480 PRINT "END OF FILE REACHED" 

4 90 PRINT "RECORD " ;Nl; H NOT FOUND" 
500 GOTO 620 

510 REM 

520 REM NO MORE RECORDS TO BE DELETED 

530 REM TRANSFER REMAINING RECORDS TO A NEW FILE 

5 40 REM 

550 IF EOF(l) THEN 620 

560 INPUT #1,N,B,R1,R2,C 

570 PRINT #2,N;B;R1;R2;C 

580 GOTO 550 

590 REM 

600 REM END OF PROGRAM 

610 REM 

620 CLOSE #1,#2 



7 40 STOP 
32767 END 



'l' If XL) XIIJCj JTrttVi' LNU VlOiltlX <J3L' 1 lilti l\iU^KJL\U J- W L> LJ UiJUJJiUU 

WHEN FINISHED — TYPE 9 9 

? 101 

RECORD REMOVED 101 120 40 45 5 

TYPE THE PART NUMBER OF THE RECORD TO BE DELETED 

WHEN FINISHED — TYPE 99 
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? 219 

RECORD REMOVED 219 60 60 

TYPE THE PART NUMBER OF THE 

WHEN FINISHED ~ TYPE 99 

? 300 

RECORD REMOVED 300 150 

TYPE THE PART NUMBER OF THE 

WHEN FINISHED ~ TYPE 99 

? 99 

Break in 7 40 



80 

RECORD TO 



70 
RECORD TO 



BE DELETED 



BE DELETED 



3.25 



6.85 



file. 



Modify your program that prints the "INV" file to print the "INV2" 



X12 





50 


10 


8,25 


226 


5 


110 


90 


2.95 


235 


100 





50 


6.2 


347 





50 


20 


4.6 



Account Balance Exercise: Delete from the new customer statement file 
("CUST1") the records for customer numbers 2741, 2937, and 3426. Print 
the new file ("CUST2") with another program. 



Exercises 
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(Attach additional paper to complete your program.) 



Sales Commission Exercise; Delete from the new sales file ("SALES 1") the 
records for salesmen Bill, Tom, and Harry. Print the new file with another 
program. 
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(Attach additional paper to complete your program.) 



This chapter did not deal with BASIC statements; it dealt with how to use SUMMARY 
what you have already learned in order to solve two problems^deieting and 
adding records. 

The use of sequential files, and some of their limitations, becomes ap- 
parent in these problems. Sequential files can only be read from the begin- 
ning. We cannot start anywhere in the middle. We must start with the first 
record in the file, and proceed record by record until the desired record is 
found. Then, and only then, can the operation be performed-adding a re- 
cord or deleting a record. 

If sequential files are so restricted, why then are they so common? The 
answer is simple— cost. Sequential file processing is efficient when large num- 
bers of active records are involved. Such is the case for many business appli- 
cations. We can collect a large amount of data and process it all together in a 
batch. 

All of the records are processed in an identical way. The basic logic for 
sequential processing is simply input-process-output (and repeat the input- 
process-output sequence until finished). Each transaction receives identical 
treatment. 

In this chapter you have learned more about how to handle sequential 
files: 

• How to add records to the end and to the middle of a file 

• How to remove records from a file 

In the next chapter this added skill will become useful when you update se- 
quential files. 
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PROBLEMS 1. Use the file "XKT from Problem 1 in Chapter 4 (page 94) and add the 

following records: 



ID 


Time 1 


Time 2 


107 


35 





209 


40 


4 


420 


40 


2 



Call the new file "XK2". PRINT the new file. 

2. Use the file "TOP" from Problem 3 in Chapter 4 (page 89) and add the 
following records: 

ID Name 
250 Bong 
263 Cabot 
270 Walters 
273 Beck 
Call the new file "TOPI". Print the new file. 

3. Use the file "XK2" from Problem 1 above and delete records with the 
following IDs: 101, 209, 281, 422. Call the new file "XK3". Print the 
new file. 

4. Use the file "TOPI" from Problem 2 above and delete records with the 
following IDs: 247, 262, 263, 273. Call the new file "TOP2". Print the 
new file. 
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157 
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At the end of this chapter you should be able to update sequential files with: 

• One transaction record for each master record 

• Transaction records missing 

• Master records missing 

© Multiple transaction records for each master record 

• Coded transaction records 

So far, you have used one or two files in a program. The two files have gener- 
ally had records with the same fields. When you have created files, the 
records have also contained the same fields. In this chapter, sequential files 
are used; however, the records of the different files will not contain the same 
number of fields. Updating is the term used to describe the processing 
and/or programs that take master files and transaction files and create new 
master files. 

The programs in this chapter may appear to be long. Most of the state- 
ments in each program are remarks. The programs contain these remarks so 
that you may follow the logic in the programs more easily. 

The payroll example has the file "EMPLOY" that contains records with 
the following fields: employee number, department number, name, hourly 
rate, regular hours worked, overtime hours worked. This file has been suffi- 
cient for our needs until now. In using this file, you may have thought that 
for each pay period (week), this file is input by a data entry operator with 
one record per employee. This is not the way it is done by businesses. If the 
"EMPLOY" file was prepared this way each week, there would be a great 
deal of duplication. To have to type employee number, department number, 
and hourly rate for each employee each week would be a great waste of time, 
especially if there were thousands of employees. 

In order to avoid this duplication, master files and transaction files are 
used. A master file contains information that does not change often. A 
transaction file contains information that changes regularly. In the payroll 
example, the only information about an employee that may change regularly 
(with each payroll) will be regular and overtime hours worked. As a conse- 
quence of this, each employee may have two records in two different files. 
The first file will contain the information that does not change from pay pe- 
riod to pay period; this is the employee master file. The second file will con- 
tain the information that does change regularly; this is the employee 
transaction file. 

An example of typical information contained in an employee master file 
and transaction file is given in Figure 7-1. The information that changes 
regularly, regular and overtime hours, appears in the transaction file along 
with the employee number (for identification of the record). The employee 
master file contains information that does not change often: department 
number, name, hourly rate, number of exemptions as well as some other in- 
formation. The year-to-date information is kept in the master record and, 



Performance 
Objectives 



UPDATING 
FILES 
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Employee Master File 

Employee Master Records 
® Employee Number 
® Department Number 
© Name 
® Marital Status 
® Hourly Rate 

• Number of Exemptions 

© Year-to-Date Gross Pay {YTD GROSS) 

• Year-to-Date Federal Income Tax Withheld (YTD FIT) 
© Year-to-Date Social Security Withheld (YTD FICA) 

Employee Transaction File 
Employee Transaction Record 
@ Employee Number 
® Regular Hours Worked 
© Overtime Hours Worked 



Figure 7-1 



Data in Employee Master and Transaction Files 



obviously, these amounts will change with each payroll. So, the definition of 
a master record given above must be modified. A master record contains in- 
formation that does not often change, as well as summary information. In 
this case the summary information is year-to-date data. In a business, an 
employee master record for payroll would contain many more fields, but for 
brevity, the record defined in Figure 7-1 will be sufficient to illustrate an 
update. 

In programming terms, an update may be thought of as a program that 
matches transaction records with master records and updates the summary 
information in the master record. As an integral part of this procedure, a 
payroll can be prepared as well as any management reports concerning pay- 
roll. In this chapter, to compute the federal income tax (FIT), use 20% of 
gross pay; to compute the FICA amount, use 6.13% of gross pay. Emphasis 
is placed on the programming logic needed to deal with master and transac- 
tion files to perform an update. In a later chapter, the tax information will be 
given and you will be able to program the exact computations for taxes. 



(YTD NET PAY - YTD GROSS FAY - Y Tl> Ml ' - Y ID FICA). 

Table 7-1 shows the information in the employee master hie, 
"EMPMAS", Table 7-2 shows the information in the employee transaction 
file, "EMPTRA". You can create the file "EMPMAS" by writing a program 
that will take the "EMPLOY" file and print on the records of the 
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Employee Master File 








Employee 


Dept. 




Marital 


Hourly 


No. of 


YTD 


YTD 


YTD 


No. 


No. 


Name 


Status 


Rate 


Exemp. 


Gross 


FIT 


FICA 


101 


1 


Adams 


2 


5.00 


3 


1000.00 


200.00 


61.30 


103 


12 


Baker 


1 


5.60 


2 


1288.00 


257.60 


78.95 


104 


17 


Brave 


2 


4.00 


4 


860.00 


172.00 


52.72 


108 


16 


Cohen 


2 


6.25 


4 


1187.50 


237.50 


72.79 


172 


2 


Johnson 


1 


3.75 





750.00 


150.00 


45.98 


198 


1 


Tanner 


2 


4.25 


4 


765.00 


153.00 


46.89 


202 


16 


Wilson 


2 


4.00 


5 


800.00 


160.00 


49.04 


206 


7 


Lester 


2 


5.25 


3 


1050.00 


210.00 


64.37 


255 


12 


Schmidt 


2 


5.60 


5 


1288.00 


257.60 


78.95 


281 


12 


Miller 


2 


6.00 


4 


1200.00 


240.00 


73.56 


313 


7 


Smith 


2 


4.25 


3 


977.50 


195.50 


59.92 


347 


12 


Gray 


2 


6.00 


3 


1 140.00 


228.00 


69.88 


368 


1 


Weaver 


1 


3.50 


1 


752.50 


150.50 


46.13 


422 


1 


Williams 


2 


4.00 


2 


800.00 


160.00 


49.04 



Table 7-1 



Employee Transaction File 

Employee Number Regular Hours Overtime Hours 



Table 7-2 



101 


40 





103 


40 


4 


104 


40 


2 


108 


38 





172 


40 





198 


36 





202 


40 





206 


40 





255 


40 


4 


281 


40 





313 


40 


4 


347 


38 





368 


40 


2 


422 


40 






"EMPMAS" file the following fields: employee number, department 
number, name, and hourly rate. Make sure that you leave space for the five 
missing fields. Then write another program or continue in the same program 
to input from the keyboard the missing fields-marital status, number of ex- 
emptions, year-to-date gross pay, year-to-date federal income tax withheld, 
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and year-to-date social security withheld. Marital status is defined as fol- 
lows: 1 — single, 2 = married. The alternative way to create the 
"EMPMAS" file is to input all of the data from the keyboard by writing a 
program as shown in Chapter 4. 

The "EMPTRA" file may be created by writing a program that reads 
the "EMPLOY" file and places employee number, regular hours, and over- 
time hours in the "EMPTRA" file. Alternatively, you may write a program 
that will input the data from the keyboard. The transaction file data is found 
in Table 7-2. 

A program that combines the creation of the "EMPMAS" and "EMP- 
TRA" files is given below.: 

100 REM THIS PROGRAM CREATES THE EMPLOYEE MASTER FILE 

110 REM AND THE EMPLOYEE TRANSACTION FILE 

130 OPEN "I" ,1, "EMPLOY" 

140 OPEN "0", 2 r "EMPMAS" 

150 OPEN "0",3, "EMPTRA" 

160 INPUT #1, N,D,N$,H,R,V 

170 PRINT "MARITAL STATUS (1 OR 2), EXEMPTIONS FOR ";N$ 

180 INPUT M,E 

190 PRINT "YTD GROSS, YTD FIT, YTD FICA" 

200 INPUT G,F,F1 

210 PRINT #2, N;D;N$;", " ; M; H; E; G; F ; Fl 

220 PRINT #3,N;R;V 

230 GOTO 160 

270 CLOSE #1,#2,#3 

300 STOP 

32767 END 

In the program, the transaction file with the weekly hours worked will 
be used to update the master file. Also a list of employees and their gross 
pay will be printed. 

In order to understand the programming involved in an update, the fol- 
lowing example illustrates what is required. 

Probiem Summary 

Input 

1. Employee master file, "EMPMAS" 

2. Employee transaction file, "EMPTRA" 
Processing 



Calculate gross pay, taxes, and net pay. 

Output 

An updated master file with the new values for year to date fields. Print 
out a list of employee numbers, their names, their net pay, and the up- 
dated master file suitably labelled. 
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The program therefore has to perform the following steps: 

1. Establish a link to the transaction file, master file, and the new master 
file. 

2. Read a transaction record and associated master record. 

3. Calculate the taxes and print the employee number, name, and net pay. 

4. Update the master record with the payroll data. 

5. Write the updated master record into a new master file, 

6. Go back to read more records while there is still data in the files. 

7. Print out the updated master file. 
A program is shown below: 



100 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

3 20 

3 30 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 



REM 

REM 

REM 

REM 

PRINT 

PRINT "EMPLOYEE iSIAME 

PRINT "NUMBER 

PRINT 

REM 

REM 

OPEN "I" ,1, "EMPMAS" 

OPEN "I", 2, "EMPTRA" 

OPEN "0",3, "EMPMA1" 

REM 

REM 

REM 

INPUT #2,I,R,V 

REM 



UPDATE OF MASTER FILE 
SET UP HEADINGS 



NET" 
PAY" 



READ A TRANSACTION RECORD 



REM 
REM 
INPUT 
REM 

REM 
REM 
IF I = N THEN 



READ A MASTER RECORD 
l,N,D,N$,M,H,E,G,F,Fl 
COMPARE ID ! S 



410 



IF I>N THEN 310 

IF KN THEN 750 

REM 

REM 

REM 

G1=(R*H)+(V*H*1 

F2=.2*G1 

F3=.067*G1 



ID'S MATCH — DO COMPUTATIONS FOR UPDATE 
5) 
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PRINT UPDATED MASTER RECORD 



440 P=Gl~F2~F3 

450 G=G+G1 

460 F=F+F2 

470 F1 = F1 + F3 

480 P1 = P1+P 

490 REM 

500 REM 

510 REM 

520 PRINT #3,N;D;N$; , \";M;H;E;G;F;F1 

530 REM 

540 REM PRINT ID, NAME, NET PAY 

550 REM 

560 PRINT USING " ### % % ####.##» ; N , N$ , P 

570 REM 

58 REM READ A TRANSACTION RECORD 

590 REM 

595 IF E0F(2) THEN 780 

600 INPUT #2,I,R,V 

610 GOTO 350 

720 REM 

730 REM MISSING MASTER RECORD 

740 REM 

750 PRINT "MASTER RECORD MISSING FOR EMPLOYEE NUMBER '* ; I 

780 CLOSE #1,#2,#3 

790 REM 

800 REM PRINT OUT OF UPDATED MASTER FILE 

810 REM 

820 PRINT 

830 PRINT 

840 PRINT 

850 PRINT 

860 PRINT " 

870 PRINT 

880 OPEN "I",l, "EMPMAl" 

890 PRINT "EMPLOYEE DEPT NAME 
YTD YTD" 

900 PRINT "NUMBER 
FIT PICA" 

905 IF EOF(l) THEN 940 

910 INPUT #1,N,D,N$,M,H,E,G,F,F1 

920 PRINT USING " ### ## 

####.## ####.## #»#.##";N,D,N$,M,H,E,G,F,F1 

930 GOTO 905 

940 CLOSE #1 

950 STOP 

32767 END 



UPDATED MASTER FILE" 



MARITAL HOURLY 
STATUS RATE 



EX- 
EMP 



% # 



##.## 



YTD 
GROSS 

# # 
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EMPLOYEE 


NAME 


NET 


NUMBER 




PAY 


101 


ADAMS 


146.60 


103 


BAKER 


188.82 


104 


BRAVE 


126.08 


108 


COHEN 


174.09 


172 


JOHNSON 


109.95 


198 


TANNER 


112.15 


202 


WILSON 


117.28 


206 


LESTER 


153.93 


255 


SCHMIDT 


188,82 


281 


MILLER 


175.92 


313 


SMITH 


143.30 


347 


GRAY 


167.12 


368 


WEAVER 


110.32 


422 


WILLIAMS 


117 .28 



UPDATED MASTER FILE 



EMPLOYEE 


DEPT 


NAME 


MARITAL 


HOURLY 


EX- 


YTD 


YTD 


YTD 


NUMBER 






STATUS 


RATE 


EMP 


GROSS 


FIT 


FICA 


101 


1 


ADAMS 


2 


5.00 


3 


1200.00 


240.00 


74.70 


10 3 


12 


BAKER 


1 


5.60 


2 


1545.60 


309.12 


96.21 


104 


17 


BRAVE 


2 


4.00 


4 


1032.00 


206.40 


64.24 


108 


16 


COHEN 


2 


6.25 


4 


1425.00 


285.00 


88.70 


172 


2 


JOHNSON 


1 


3.75 





900.00 


180.00 


56.03 


198 


1 


TANNER 


2 


4.25 


4 


918.00 


183.60 


57.14 


202 


16 


WILSON 


2 


4.00 


5 


960.00 


192.00 


59.76 


206 


7 


LESTER 


2 


5.25 


3 


1260.00 


252.00 


78.44 


255 


12 


SCHMIDT 


2 


5.60 


5 


1545.60 


309.12 


96.21 


281 


12 


MILLER 


2 


6.00 


4 


1440.00 


288.00 


89.64 


313 


7 


SMITH 


2 


4.25 


3 


1173.00 


234.60 


73.02 


347 


12 


GRAY 


2 


6.00 


3 


1368.00 


27 3.60 


85.16 


368 


1 


WEAVER 


1 


3.50 


1 


903.00 


180.60 


56.21 


422 


1 


WILLIAMS 2 


4.00 


2 


960.00 


192,00 


59.76 



The easiest way to understand the logic that is required for an update is 
to begin with the flowchart (Figure 7-2). This flowchart does not represent 
each line in the program with a box. It focuses on the logic of matching 
transaction records with master records in (a) and the logic of the error rou- 
tines in (b). First, a record from the transaction file "EMPTRA" is input 
then a record from the master file "EMPMAS" is input. In matching the 
transaction record to the appropriate master record three conditions may 
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Print 

Master ^ */ Master Record f > 

> ^^ in ^<< I Missing 



Perform 
Calculations 




Print New 
Master Record 



Print 
f Name, Net Pay) 



Figure 7-2 



I Input 

I Traneartinn 

! Rprntxj ) 

i ZZ i 




NO 



(a) Matching Logic 

Flowchart of Update Program 
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(b) Enci-of-Fiie Logic 



Flowchart of Update Program (cont'd) 



Figure 7~~2 



occur. The employee number (ID) of the transaction record may be greater 
than, less than, or equal to the employee number (ID) of the master record. 

• If the transaction record ID is greater than the master record ID: Then, 
there is no transaction and input the next master record. This should not 
occur since there is one transaction record for each master record. 

• If the transaction record ID is equal to the master record ID; Then, per- 
form the update calculations, print the updated (new) masterfHe, and 
print the employee ID, name, net pay. Read the next transaction record. 

@ If the transaction record ID is less than the master record ID: Then, a 
master record is missing from the master file. If a master record is miss- 
ing, a message is generated and the program is terminated. 

Note: Remember, the transaction and master files must be in ascending order of 

employee number (ID). 
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If the flowchart does not help you understand the program, then let us 
perform the job (update) manually. There are two files "EMPMAS" and 
"EMPTRA", assume that they are in separate cabinets. Also assume that the 
data on each record in both files are on a separate sheet of paper, and that 
the files are organized in ascending employee number. In order to focus on 
the problem of matching master and transaction records only the first field, 
employee number (ID), is shown in Figure 7-3. 





Master File 


Transaction File 




"EMPMAS" 


"EMPTRA" 


Record Number 


Employee Number 


Employee Number 


1 


101 


101 


2 


103 


103 


3 


104 


104 


4 


108 


108 


5 


172 


172 


6 


198 


198 


7 


202 


202 


8 


206 


206 


9 


255 


255 


10 


281 


281 


11 


313 


313 


12 


347 


347 


13 


368 


368 


14 


422 


422 



Figure 7-3 Employee Number Fields for Master and Transaction Records 



Manually we would reach into the transaction file and read the first re- 
cord. Remember, you can only read one record at a time! We then reach into 
the master file for a record. The IDs match (both are 101), We update the 
master record with the information on the transaction record and then read 
the second transaction record. Its ID is 103, the master record ID is still 101 
so we read the next master record. Its ID is 103 and we have a match. We 
update and read the third transaction record-ID is 104. The master ID is 
still 103, so we read the next (third) master record and have a match. We 
update and proceed until there are no more records to be processed. 

In the program the end-of-file condition is reached after the last master 
record is updated. To be more specific, the end of file is reached at line 600 
where an attempt to read a transaction record encounters the end of file. 

i iicii Ltic iiicS arc CiOScu aiiCi ti'ic Upuatcu master Viit ("iifv'ir fviAi ) iS 

printed. 

You may be thinking at this point that all you have to do is read a trans- 
action record and a master record and they will match. This is the case here 
where there is one, and only one, transaction record for each and every 
master record. It is rarely the situation! 
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The payroll example illustrates an update where there is one transaction re- 
cord for each master record. There are many instances where there may be 
more than one transaction record for each master record or no transaction 
record for a master record. Common examples are credit card statements, 
sales, inventory, and customer statements. 

For the next example, the sales file "SALES" will be used as the master 
file and the transaction file will be called "SALEST". The data in these files 
is given in Tables 7-3 and 7-4. If you have the "SALES" file saved, you can 
run the alphabetic sort given in Appendix B on this file or create a new 
"SALES" file with data shown in Table 7-3. The transaction file, 
"SALEST", must be created. The program should print out an error 
message if a master record is missing, but it should not terminate. 



UPDATING 

WITH MISSING 

TRANSACTIONS 



Sales Master File "SALES" Sorted Alphabetically By Salesman 



Table 7-3 



Department 


Salesman 


1 


Bill 


3 


Bob 


3 


Clyde 


3 


Harry 


1 


Joe 


2 


Phil 


2 


Tom 



Gross Sales 

Year-to-Date 

12050 

14690 

7340 

9460 

5270 

11200 

6940 



Commission Rate 
.05 
.05 
.04 
.045 
.045 
.055 
.04 



Sales Transaction File "SALEST" Sorted Alphabetically By Salesman Table 7-4 



Salesman 


Amount of Sale 


Bill 


1050 


Bill 


275 


Bill 


390 


Clyde 


460 


Clyde 


290 


Harry 


1500 


Joe 


280 


Joe 


490 
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Problem Summary 

Input 

1. Sales commission master file, "SALES" 

2, Sales transaction file, "SALEST" 

Processing 

Match transaction records and master record by salesman's name. Cal- 
culate the commissions for the salesmen due on the transaction data. 

Output 

A list of commissions for the salesmen for their latest sales, an updated 
master file with the new value of year to date sales, and print out the 
updated master file. 



The program therefore has to perform the following steps: 

1. Establish a link to the transaction, master and new master files. 

2. Read a transaction record and the associated master record. 

3. Calculate the commissions for the latest sales, 

4. Print the commissions for the salesmen. 

5. Update the master record with the transaction data. 

6. Write the updated master record into a new master file. 

7. Go back to read more records while there is still data in the files. 

8. Print out the updated master file. 



See the flowchart (Fig. 7-4) and the following program. 



100 REM PROGRAM TO UPDATE SALES 

120 REM 

130 REM SET UP HEADINGS FOR OUTPUT 

140 REM 

150 PRINT "NAME" , "COMMISSION" 

160 PRINT " " 

170 REM 

180 REM LINK TO FILES 

190 REM 

200 OPEN "I",!," SALEST" 

210 OPEN "I", 2, "SALMAS" 

220 OPEN "O", 3, "NSALES" 

2 50 REM 

260 INPUT #1, N$,A 

27 REM 

280 REM READ A MASTER RECORD 
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290 


REM 




300 


INPUT #2, 


D,S$,G,C 


310 


REM 




320 


REM 


COMPARE TRANSACTION WITH MASTER 


330 


REM 




340 


IP N$=S$ 


THEN 410 


350 


IP N$>S$ 


THEN 550 


360 


IF N$<S$ 


THEN 67 


37 


REM 




380 


REM 


TRANSACTION EQUAL TO MASTER 


390 


REM 


UPDATE THE MASTER 


400 


REM 




410 


G=G+A 




420 


C1=A*C 




430 


REM 




440 


REM 


PRINT NAME AND COMMISSION 


450 


REM 




460 


PRINT USING"* % ###.##";S$,C1 


470 


REM 




480 


REM 


READ NEXT TRANSACTION AND GO TO COMPARE 


490 


REM 




495 


IF E0F(1) 


THEN 7 40 


500 


INPUT #1, 


N$,A 


510 


GOTO 340 




520 


REM 




530 


REM 


TRANSACTION GREATER THAN MASTER 


540 


REM 


WRITE UPDATED MASTER 


550 


PRINT #3, 


D;S$;",";G;C 


560 


REM 




570 


REM GC 


) BACK AND GET ANOTHER MASTER 


580 


REM 




590 


GOTO 30 




600 


REM 




610 


REM 


TRANSACTION LESS THAN MASTER 


620 


REM 


ERROR — NO MASTER IN FILE 


630 


REM 


WRITE ERROR MESSAGE, THEN 


640 


REM 


READ ANOTHER TRANSACTION & 


650 


REM 


CONTINUE PROCESSING. 


660 


REM 




670 


PRINT >'*** TRANSACTION WITHOUT MASTER *** n ;N$;A 


680 


GOTO 49 5 




690 


REM 




700 


REM NO MORE TRANSACTIONS — WRITE REMAINING MASTER 


710 


REM 


RECORDS 


720 


REM 




725 


IF EOP(2) 


THEN 7 90 


730 


INPUT #2, 


D,S$,G,C 


740 


PRINT #3, 


D;S$;",";G,C 


750 


GOTO 7 25 




760 


REM 




770 


REM 


UPDATE IS FINISHED — PRINT THE 
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7 80 REM UPDATED MASTER 
790 CLOSE #l f #2,#3 

800 OPEN "I'M, "NS ALES" 

810 REM 

820 REM PRINT HEADINGS 

830 REM 

840 PRINT 

850 PRINT 

860 PRINT "UPDATED PILE — NSALES" 

870 PRINT " " 

880 PRINT 

8 90 PRINT " TERRITORY ", "NAME" , "YTD", "COMMISSION" 
900 PRINT " "," ", "SALES ","RATE" 

910 PRINT " "," "," "," 

920 REM 

930 REM READ A RECORD AND PRINT 

940 REM 

945 IF EOF(l) THEN 990 

950 INPUT #1, D,S$,G,C 

960 PRINT USING" ## % % ##,###.## 

.###";D,S$,G,C 

970 GOTO 945 

980 REM 

990 CLOSE #1 

1110 STOP 

32767 END 



NAME 


COMMISSION 






BILL 


52.50 




BILL 


13.75 






BILL 


19.50 






CLYDE 


18 .40 






CLYDE 


11.60 






HARRY 


67 .50 






JOE 


12.60 






JOE 


22.05 






UPDATED FILE - 


- NSALES 


YTD 




TERRITORY 


NAME 


COMMISSION 






SALES 


RATE 


1 


BILL 


13,765.00 


.050 


3 


BOB 


x 4 , b 'J vj . U 1/ 


» U D \J 


3 


CLYDE 


8,uyu .00 


.U4U 


3 


HARRY 


10,960.00 


.045 


1 


JOE 


6,040.00 


.045 


2 


PHIL 


11,200.00 


.055 


2 


TOM 


6,940.00 


.040 
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( Start J 



Print / 

New Master Mr- 
Record I 



Open 
Files 



Input 

Transaction 

Record 



Input 
Master 
Record 




Perform 
Calculations 




Input 

Transaction 

Record 



/ Print 

-W No Master 

/ Record 




NO 



(a) Matching Logic 



Flowchart of the Sales Update 



Figure 7-4 
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{b} Logic of End-of-Fite 



Figure 7-4 



Flowchart of the Saies Update (cont'd.) 



The flowcharts and program are different from the payroll update in five 
ways: 

1. Missing transaction records occur. 

2. The new master record is printed on the file when the transaction record 
ID is greater than the master record ID. 

3. The matching of IDs is on alphabetic data. 






„,Uo.~ rt mrtcie 



1 C miCCTHO 



5. Multiple transaction records for each master record occur. 

Missing transactions are accounted for in the logic in two places. First, 
new master records are printed on the file only when the transaction record 
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ID is greater than the master record ID. Second, if the end of the transac- 
tion file has been read and master records remain to be processed, line 495 
IF EOF(l) THEN 740 and the instructions that follow line 740 take care of 
this problem. 

IDs that consist of alphabetic information (salesman name) are matched 
in this program. There is no essential difference between matching alpha- 
betic as opposed to numeric IDs as far as the programming is concerned. 

The program will not terminate if master records are missing. This prob- 
lem is solved by printing the appropriate message and reading the next 
transaction record. 

Finally, the program will handle the case where there is more than one 
transaction record for a master record. This is done by not printing a new 
master record until the transaction record ID is greater than the master re- 
cord ID. Also, the accumulation of the gross sales in line 410, G = G + A, 
will update the gross sales on the master record correctly. The value of G is 
changed each time a master record is read, while the value of A will be 
added to it for each transaction record. 

The program can best be understood by referring to the flowchart (Fig- 
ure 7-4), Figure 7-5, and tracing the logic. The first transaction record is 
input followed by the first master record. The salesman for both these 
records is Bill. There is a match, the name and commission are printed and 
the second transaction record is input. The master record ID is Bill and the 
second transaction record ID is Bill. So the name and commission are 
printed using the data of the second transaction record. The third transac- 
tion record is read. There is another match and the printout of name and 
commission occurs again. The fourth transaction record is read (Clyde) and 
the transaction record ID is greater than the master record ID so the master 
record for Bill, now fully updated by three transaction records, is printed 
and the second master record is read (Bob). You may wonder how Clyde is 
greater than Bob. The answer is that the letter "C" is greater, or of higher 





Master File 


Transaction File 




SALES 


SALEST 


Record N 


jmber 


Salesman 


Salesman 


1 




Bill 


Bill 


2 




Bob 


Bill 


3 




Clyde 


Bill 


4 




Harry 


Clyde 


5 




Joe 


Clyde 


6 




Phil 


Harry 


7 




Tom 


Joe 


8 






Joe 



Salesman Fields For Master and Transaction Records 



Figure 7-5 
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value, than the letter "B". The alphabet from A to Z is viewed by the com- 
puter as just a series of increasing values. It is this fact that allows us to per- 
form alphabetic sorts as in Appendix B, and compare alphabetic fields with 
IF statements. 

At this point, we have printed Bill's updated master record, input Bob's 
master record, and input Clyde's transaction record. Clyde is greater than 
Bob (TR>MR) so Bob's master record is printed. There were no transac- 
tion records for Bob; so his updated master record remains the same and the 
next master record is input (Clyde). There is a match, name and commission 
are printed, and the next transaction record is input (five). There is another 
match, name and commission are printed and the next transaction record is 
input (Harry). Harry is greater than Clyde, so Clyde's master record is 
printed and the next master record input (Harry). The logic continues in the 
above manner until the end of the master file is reached and the program is 
finished. Note, there are no transactions for Phil or Tom so that the end of 
file for the transaction file occurs at line 495. The statement IF EOF(l) 
THEN 740 will direct the computer to line 740 and the remaining master 
records that do not have any transaction records will be printed on the new 
master file. The two other end-of-file statements (725, 945) are used to print 
out the updated master file and produce the required report. 
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The final example of an update program will use exactly the same logic as 
the last program, but the transaction file will be more complex. This last ex- 
ample will be an inventory problem. It will use as the master file the file 
"INVMR". Table 7-5 gives the contents of the master file, Table 7-6 the 
transaction file, "INVTR". 

You will have to write programs to create both the transaction and mas- 
ter hie. The transaction records have three fields: the part number (ID), a 
transaction code, and a quantity. The transaction code field has either the 
number 1 or 2 in it, A transaction code of 1 means that the transaction is a 
receipt to inventory. A transaction code of 2 means that the transaction is an 
issuance of goods from inventory. The first transaction record (101,1,150) 



Table 7-5 



Inventory Master File 



Part 






'umber 


Units on Hand 


Cost 


101 


350 


5.00 


i iu 


2/3 


7.UU 


219 


90 


3.25 


226 


120 


2.95 


235 


360 


6.20 


247 


140 


4.60 
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Inventory Transaction File 



Table 7-6 



Part 


Transaction 




'umber 


Code 


Quantity 


101 


1 


150 


101 


2 


75 


101 


2 


60 


101 


2 


20 


219 


2 


20 


226 


1 


75 


226 


1 


100 


226 


2 


90 


235 


2 


30 


247 


1 


70 



means that 150 units of part 101 were received in inventory. The third trans- 
action record (101,2,60) means that 60 units of part 101 were issued from 
inventory. 

You may assume that the master file is updated at the end of each week 
and that the transactions were generated during this week. The files are 
sorted by part number and you have to write the program for the update. 
For the updated master file, the calculation is as follows: 

Units on Hand = Units on Hand (in the old master file) 
+ Units received (transaction code 1) 
— Units issued (transaction code 2) 
Besides updating the master file, one report is to be produced. The re- 
port is an "Inventory Valuation Report/' It lists the part numbers and the 

amount of money that is tied up in inventory at the end of the week. It is 
produced from the updated master file. 



Problem Summary 
Input 

1. Inventory master file, "INVMR" 

2. Inventory transaction file, "INVTR" 
Processing 

Match transaction records and master records by part number. Calcu- 
late quantities received and issued by transaction code. Calculate units 
on hand. 

Output 

An updated master file, "INVSN", and an inventory valuation report. 
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The program therefore has to perform the following steps: 

1. Establish a link to the transaction file and the master and new master 
files. 

2. Read a transaction record and associated master record. 

3. Determine from the transaction code whether the quantity is issued or 
received. 

4. Update the master record. 

5. Write the updated master record. 

6. Go back to read more records while there is still data in the files. 

7. Print out the new master file. 

8. Produce the report from the updated master file. 

The program follows; 



100 REM PROGRAM TO UPDATE INVENTORY 

110 REM 

120 REM LINK TO FILES 

130 REM 

140 OPEN "I", 1,"INVTR" 

150 OPEN "I" , 2,"INVMR If 

160 OPEN "O" , 3, H INVSN" 

170 REM 

180 REM READ A TRANSACTION RECORD 

190 REM 

210 INPUT #l r Pl,Tl,Ql 

220 REM 

230 REM READ A MASTER RECORD 

240 REM 

250 INPUT #2, P2,Q2,C2 

260 REM 

270 REM COMPARE TRANSACTION WITH MASTER 

280 REM 

290 IF Pl=P2 THEN 380 

300 IF Pl>P2 THEN 560 

310 IF PKP2 THEN 680 

320 REM 

^0 REM TRANSACTION EQUAL TO MASTER 

340 REM UPDATE THE MASTER 

350 REM 

360 REM CHECK IF TRANSACTION IS RECEIPT OR ISSUE 

370 REM 

380 IF Tl=2 THEN 470 
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390 
400 
410 
420 
4 30 
440 
450 
460 
470 
480 
490 
500 
505 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
7 50 
760 
770 
780 
7 90 
800 
810 
820 
830 
840 
850 
860 
870 
880 



Tl=l 



Tl=2 



READ NEXT TRANSACTION AND GO TO COMPARE 



REM 

REM RECEIPT: 

REM 

Q2=Q2+Q1 

GOTO 50 5 

REM 

REM ISSUE: 

REM 

Q2=Q2~Q1 

REM 

REM 

REM 

IF EOF(l) THEN 750 

INPUT #1,PI,T1,Q1 

GOTO 290 

REM 

REM TRANSACTION GREATER THAN MASTER 

REM WRITE UPDATED MASTER 

PRINT #3, P2;Q2;C2 

REM 

REM GO BACK AND GET ANOTHER MASTER 

REM 

GOTO 250 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

PRINT " *** TRANSACTION WITHOUT MASTER *** M ; Pi ; Tl ; Ql 

GOTO 50 5 

REM 

REM NO MORE TRANSACTIONS — WRITE REMAINING MASTER 

REM RECORDS 

IF EOF(2) THEN 800 

INPUT #2 r P2,Q2,C2, 

PRINT #3, P2;Q2;C2 

GOTO 7 30 

REM 

REM UPDATE IS FINISHED — PRINT THE UPDATED 

REM FILE AND THE REPORT 

CLOSE #1,#2,#3 

OPEN "I" , l f "INVSN" 

REM 

REM 

REM 

PRINT 

PRINT " 

PRINT " 

PRINT 



TRANSACTION LESS THAN MASTER 
ERROR ~ NO MASTER IN FILE 
WRITE ERROR MESSAGE, THEN 
READ ANOTHER TRANSACTION & 
CONTINUE PROCESSING. 



HEADINGS FOR UPDATED FILE 



NEW INVENTORY MASTER FILE" 
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890 PRINT "PART UNITS COST" 
90 PRINT "NUMBER ON HAND H 

910 PRINT " •' 

915 IF EOF(l) THEN 950 

920 INPUT #1,P,Q,C 

930 PRINT USING"### #### #.##";P,Q,C 

940 GOTO 915 

950 CLOSE #1 

9 60 OPEN "I" /I, "INVSN" 

970 REM PRINT REPORT HEADINGS 

980 REM 

990 PRINT 

1000 PRINT 

1010 PRINT " INVENTORY VALUATION REPORT" 

1020 PRINT " " 

10 30 PRINT 

1040 PRINT "PART", "DOLLAR" 
1050 PRINT "NUMBER", "AMOUNT" 

1060 PRINT " "," » 

1070 REM 

10 80 REM READ A RECORD AND CALCULATE INVENTORY VALUES 

1090 REM 

1100 IF EOF(l) THEN 1190 

1110 INPUT #1,P,Q,C 

1120 D=Q*C 

1130 T=T+D 

1140 PRINT USING " ### #,###.##"; P , D 

1150 GOTO 1100 

1160 REM 

1170 REM END OF DATA — PRINT TOTAL 

1180 REM 

1190 PRINT " " 



1200 PRINT USING "% % ##,###.##"; "TOTAL" ,T 

1210 CLOSE #1 
1220 STOP 
32767 END 

NEW INVENTORY MASTER FILE 



PART 


UNITS 


COST 


NUMBER 


ON HAND 




101 


345 


5.00 


110 


275 


7.00 


Z.L y 


/Li 


3.25 


226 


205 


2.95 


235 


330 


6.20 


247 


210 


4.60 



Updating With Coded Transactions / 181 



INVENTORY VALUATION REPORT 



PART 


DOLLAR 


NUMBER 


AMOUNT 


101 


1,725.00 


110 


1,925.00 


219 


227 .50 


226 




235 


2,046.00 


247 


966.00 



TOTAL 7,494.25 

The flowchart is the same as the flowchart of the sales update program 
(Figure 7~~4) with one minor exception-the logic for handling the transac- 
tion codes. The flowchart for this portion of the program is Figure 7-6. 
Since the master record inputs the value of Q2, the two statements 

Q2 = Q2 + Ql 

Q2 - Q2 - Ql 
will accumulate the value of Q2 updated by the transaction records until the 
new master record is printed and a new master record is input. 
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Flowchart of Transaction Code Logic 



Figure 7-6 
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The data for the required report are obtained from the new master file 
and the report is the last part of the program. 

SUMMARY This chapter covered the updating of sequential files. Descriptions of master 

files and transaction files to produce a new updated master file were given. 
Various conditions with respect to the correspondence of master and trans- 
action records were handled by the programs. In each program the third IF 
statement used to match master and transaction records could have been re- 
placed by a GOTO statement. The IF statement was used to emphasize the 
logic of matching. 

The objective of data processing in a business environment is achieved 
b" the update. Through the, update, customer statements, payrolls, accounts 
receivable, accounts payable and general ledgers are produced on some time 
cycle, usually once a month. 



Problems / 183 



1 . Modify the first update program (payroll example) so that it will provide PROBLEMS 
the logic required to: 

a. Handle a missing transaction record. 

b. Continue processing rather than stop after printing the error message 
"MASTER RECORD MISSING FOR EMPLOYEE NUMBER". 

Create and use the following transaction file to test the program. 



Employee 


Regular 


Overtime 


Number 


Hours 


Hours 


103 


40 


4 


108 


38 





165 


40 





198 


36 





255 


40 


4 


313 


40 


4 


368 


40 


2 



Use "EMPMAS" as the master file. 

Print out the updated master file with suitable headings. 

Print out the employee numbers, names and their net pay. Remember 
some employees will receive no pay. 

2. Modify the sales update program so that it will print out the total com- 
mission due to each salesman, rather than the commission for each sale. 
Also print out the total commission due to all salesmen. 

3. Modify the inventory update to print out for each part number the total 
units issued and received. 

4. Assume that the payroll transaction file can contain more than one re- 
cord for an employee. Modify your program in Problem 1 so that it can 
use the following transaction file and perform the update. 



Employee 


Regular 


Overtime 


Number 


Hours 


Hours 


104 


20 





104 


20 


5 


108 


10 





198 


40 


7 


202 


15 





202 


25 


4 
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202 





6 


206 


20 





206 


20 


3 


31 5 


30 





313 


10 





313 





8 



There should be a printout for every employee showing number, name, 
and net pay-even if it is zero. Use one line per employee. Also print out the 
new master file. 
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At the end of this chapter you should be able to: 

• Set up lists and tables 

• Use lists to accumulate summary output 
© Use tables to hold data for reference 

• Use lists and tables to hold data for processing 

All the transaction processing applications that we have discussed have basi- 
cally the same pattern. The pattern consists of getting a transaction, doing 
the required computation for that transaction, outputting required results, 
and then looping back to get the next transaction. Such processing mini- 
mizes the amount of data required by the computer. 

But business has problems that require a group of data to be entered at 
the beginning and used for all transactions. Tax tables come readily to mind. 
And business also has analytic problems, where all the data has to be avail- 
able to solve a problem or where data is collected from all transactions and 
held for output until the end of all transactions. An example of the first type 
would be a linear programming problem (which is a management science 
method). An example of the second type would be analytic reports that clas- 
sify data in categories. 

To help solve these types of problems, BASIC provides lists and tables. 
A list is a series of items in a meaningful grouping or sequence. Employee 
names in alphabetic sequence would be an example of a list. Total sales in 
item number sequence might be another example. Any row or column of 
items constitutes a list. 

A table is an arrangement of words, numbers, or signs in parallel col- 
umns, It is used to show a set of facts or relationships in a compact and com- 
prehensive form. Income tax tables are a clear example of "an arrangement 
of . . . numbers ... in parallel columns." A table is therefore a grouping of 
lists. A list is a one-dimensional (row or column, but not both) presentation 
of data; and a table is a two-dimensional (both rows and columns) presenta- 
tion of data. 



Performance 
Objectives 



Let's derive a problem from the payroll application to get a feel for the use 
of lists and tables. Assume that you need to summarize the payroll expense 
by department. As you recall, there are 20 departments-numbered consecu- 
tively from 1 to 20. But sorting the file is a time consuming process. Hence 
the "EMPLOY" file will not be sorted for this problem. A simple representa- 
tion of this type of problem is shown in Figure 8-1. 

Problem Summary 
Input 

"EMPLOY" file 

Processing 

Calculate gross pay and accumulate gross pay by department. 



SUMMARY 
OUTPUT 
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Output 

Total gross pay by department 



The program therefore has to: 

1 . Link to the "EMPLOY" file. 

2. Read a record. 

3. Calculate the gross pay. 

4. Accumulate gross pay by department number. 

5. When all records have been processed, print the departmental gross pay 
totals. 

6. Terminate. 

A flowchart (Fig. 8-1), a program to perform these tasks, and the out- 
put are shown below; 






Process Data 




\ 




Store Data 




1 



Figure 8-1 



Flowchart for Summary Output 
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100 REM PROGRAM TO ACCUMULATE GROSS PAY BY DEPARTMENT 

110 REM 

120 REM OPEN FILE 

130 REM 

140 OPEN "I" ,1," EMPLOY" 

150 REM 

160 REM SET UP A LIST TO HOLD DEPARTMENTAL TOTALS 

170 REM 

180 DIM T(20) 

190 REM 

200 REM READ A RECORD, UNTIL OUT OF DATA 

220 IF EOF(l) THEN 420 

230 INPUT #1, N,D,N$,H,R,V 

240 REM 

250 REM CALCULATE AMOUNT OF GROSS PAY 

260 REM 

270 G=H*R + H*V*1.5 

280 REM 

290 REM ACCUMULATE GROSS PAY BY DEPARTMENT NUMBER 

300 REM 

310 T(D) = T(D) + G 

320 GOTO 220 

3 30 REM 

340 REM CHECK FOR END OF FILE AND PRINT RESULTS 

350 REM 

400 REM PRINT DEPARTMENTAL TOTALS WITH HEADINGS 

410 REM 

420 PRINT "DEPARTMENTAL GROSS PAY TOTALS" 

430 PRINT 

440 PRINT "DEPARTMENT", "GROSS PAY" 

450 PRINT " ", " " 

460 FOR M=l TO 20 

470 PRINT USING " ### ####.##"; M,T(M) 

480 NEXT M 

490 REM 

500 REM TERMINATE 

510 REM 

520 CLOSE #1 

530 STOP 

32767 END 



DEPARTMENTAL GROSS PAY TOTALS 
DEPARTMENT GROSS PAY 



1 663.50 

2 150.00 
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3 


0.00 


4 


0.00 


5 


0.00 


6 


0.00 


7 


405.50 


8 


0.00 


9 


0.00 


10 


0.00 


11 


0.00 


12 


983.20 


13 


0.00 


14 


0.00 


15 


0.00 


16 


397 .50 


17 


17 2.00 


18 


0.00 


19 


0.00 


20 


0.00 


reak in 530 



Now here is a program with some interesting new features: 

• The DIM statement in line 1 80 

@ The summation in line 310 and the output in 470 

• The FOR statement in line 460 and its associated NEXT statement in 
line 480 

Let's look at each of these three items in turn. The DIM statement sets 
up a list, at least that is what the preceding remark in line 160 says. But what 
exactly does it do? In this case, line 180 tells the computer to reserve 20 con- 
secutive positions all under the name "T." Previously, one field name served 
to identify one value. Here, one field name serves to identify many values. 

If many values are identified by one name, how can you differentiate be- 
tween the values? The answer is simple— by position. Line 180 sets up a list 






-V 



T I 1 I 2 I 3 I 4 I 5 I 6 I 7 13 I 14 I 15 I 16 I 17 I 18 I 19 I 20 I 

i i i i i i i i\f i i i i i i i i 

To gel any one item in the list, we need Lo specify its position (1—20). 
The value in the first position would be referred to as T(l). If we wanted the 
value from the second position, then T(2) is used. The location in the list is 
specified by enclosing a number, or a field name that has the position de- 
sired, in parentheses. 

Line 310 refers to T(D). Here the "D" (enclosed in parentheses) speci- 
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fies which position in T is involved. Hence the Dth position (whatever the 
department number D may be) of T is referenced. Similarly, in line 470, the 
reference is to position M (whatever value M may have) in T. 

A new BASIC instruction in this program is found in lines 460 and 480. 
These two lines define a loop. A loop is a shorthand way of telling the com- 
puter to repeat a series of instructions a certain number of times. Line 460 
sets up the loop and gives the loop parameters. The loop parameters tell the 
computer how often the statements in the loop are to be repeated. Line 480 
closes the loop. 

In general, the FOR-NEXT statements form loops. The statements 
within a loop are repeated the number of times specified in the FOR state- 
ment by the loop parameters. The loop parameters (in line 460), 1 TO 20, 
specify that the loop will be repeated twenty times. Each time the loop is 
repeated, the value of M will be increased by one. By this manner, when M 
reaches a value of 20, the loop will be repeated one more (final) time. 

Line 460 tells the computer to repeat the statements between 460 and 
480 (the NEXT M statement) twenty times. In this example, line 470 is per- 
formed for M values of 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 
19 and 20 in turn. 

Let us look closely at what the program does. First it opens a file for 
input. This is the file "EMPLOY" from past examples. The file contains em- 
ployee records with six fields: 

• Employee number 

• Department number 

• Employee name 

• Hourly rate 

• Regular hours 

• Overtime hours 

The department number is between 1 and 20. The range of department 
numbers is important because we want to accumulate gross pay by depart- 
ment. Next a list "T" with 20 positions: one for each of the departments, is 
set up. Then the program reads a record and calculates gross pay. The de- 
partment number (D) is used to add the gross pay to that location in T. In 
other words, whenever the gross pay for a person in department 2 is calcu- 
lated, it is added to the second position in T. Similarly if the department 
were 16, gross pay would be added to the sixteenth position in T. 

After the end-of-file has been reached, the gross pay for each of the de- 
partments is printed in lines 460-480. Notice that line 470 will print M, 
which stands for the department number, as well as the Mth value of T 
(which is the departmental gross pay total). 



Many problems require the use of reference tables. Income tax tables are the REFERENCE 
most obvious example. But life insurance companies use actuarial tables; TABLES 

statisticians use statistical tables; and financial analysts use present value or 
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annuity tables. If you look closely, you can see tables everywhere. Even this 
book has a table, a table of contents. 

Tables hold data for reference. When the data is needed, we look it up in 

*u™ :„*~ *„li. r\ ui ±u„± : i„ui« ..„.f — :„« :„ «« :« 

come tax calculation. A simple representation of this type of problem is 
shown in Figure 8-2. 




YES 



4 Terminate J 



Process Transaction 

Using Reference 

Data 



Output 
Results 



Figure 8-2 



Flowchart for Reference Tables 



The income tax problem requires two tables: one for single people; an- 
other ior iiiaiiicu people, iiota are siiGwii in. i attic 5— i. iiui mc laDics pro- 
vided by the Internal Revenue Service have to be changed to fit our require- 
ments. The tables need to be consistent. Table 8-2 is the same IRS tables- 
made consistent by the addition of the first line. 

Before the tables can be used in the weekly payroll calculation, they 
have to be set up. Since tax rates are liable to annual changes, the tax tables 
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are stored in separate files: "SINGLE" for single people; and "MARRID" 
for married people. The program to get the data into the "SINGLE" file is 
shown below. 



Percentage Withholding Tables 



Table 8-1 



(a) SINGLE person — Including head of household: 



(b) MARRIED person — 



if the amount 


The amount of income tax 


lithe amount 


The amount of income tax 


0/ wages is: 


to be withheld shall be: 


of wages is: 


to be withheld shall be: 


Not over $27 


..0 




Not over 


$46 ... 


...0 




Over — But not over — ■ 




of excess over — 


Over— ■ 


Butnotover- 




of excess over— 


$27 —$63 . . 


..15% 


_$27 


$46 


—$127 


".,15% 


_$46 


$63 —$131 . 


.,$5.40 plus 18% 


_$63 


$127 


—$210 


...$12,15 plus 18% 


—$127 


$131 —$196 , 


, .$17.64 plus 21% 


—$131 


$210 


—$288 


...$27,09 plus 21% 


—$210 


$196 —$273 . 


..$31.29 plus 26% 


—$196 


$288 


—$369 


...$43,47 plus 24% 


—$288 


$273 —$331 , 


. .$51,31 plus 30% 


—$273 


$369 


_$454 


...$62,91 plus 28% 


—$369 


$331 — $433 . 


. ,$68.71 plus 34% 


—$331 


$454 


—$556 


...$8671 plus 32% 


_$454 


$433 


. .$103,39 plus 39% 


—$433 


$556... 




.,.$119.35 plus 37% 


—$556 






Weekly Tax Tables 






Table 8-2 


a,. Single person-including head of household 


b Married 


person 






Amount of Wages 




Percentage 


Amount of Wages, 


Percentage 


Lower and Upper 


Amount to 


for Excess 


Lower and Upper 


Amount to for Excess 


End End 


be Withheld i 


)ver Low End 


End 


End 


be Withheld over Low End 


$ $ 27 


% 





$ 


$ 46 


$ 





27 63 





15 


46 


127 





0,15 


63 131 


5.40 


.18 


127 


210 


12.15 


0.18 


131 196 


17.64 


.21 


210 


288 


27.09 


0.21 


196 273 


31.29 


26 


288 


369 


43.47 


0,24 


273 331 


51,31 


30 


369 


454 


62.91 


0.28 


331 433 


68 71 


34 


454 


556 


86.71 


032 


433 999 


103.39 


39 


556 


999 


11935 


037 



8 ROWS AND 4 COLUMNS 



100 REM PROGRAM TO SET UP TAX TABLE 

110 REM 

120 REM LINK TO FILE 

130 REM 

140 OPEN "O'M, "SINGLE" 

150 REM 

160 REM SET UP A TABLE OF 

170 REM 

180 DIM T(8,4) 

190 REM 

200 REM FOR EACH ROW, GET DATA FROM TERMINAL 

210 REM 

220 FOR R=l TO 8 

230 PRINT "ENTER LOW AND HIGH WAGES, MINIMUM AND PERCENTAGE" 

240 INPUT T(R, 1) ,T(R,2) ,T(R, 3) ,T(R, 4) 

250 NEXT R 

260 REM 

270 REM PRINT TABLE AND PLACE IT INTO FILE 
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280 

290 

300 

310 

320 

330 

340 

350 

360 

32767 

READY 

RUN 



REM 
PRINT 
PRINT 

FOR L=l TO 8 

PRINT TlL,i) r T( L, 2) , "JU L, i) , I'd., 4) 
PRINT #1,T(L,1) ;T(L,2);T(L, 3);T(L,4> 
NEXT L 
CLOSE #1 
STOP 
END 



EiNxER LOW AND KIGiI WAG EG f 


*KT\1 T fcrtTl KK 


7\ MT~\ 


nPDnoMTinri? 




? 0,27,0,0 










ENTER LOW AND HIGH WAGES, 


MINIMUM 


AND 


PERCENTAGE 




? 27,63,0, .15 










ENTER LOW AND HIGH WAGES, 


MINIMUM 


AND 


PERCENTAGE 




? 63,131,5.4, .18 










ENTER LOW AND HIGH WAGES, 


MINIMUM 


AND 


PERCENTAGE 




? 131,196,17 .64, .21 










ENTER LOW AND HIGH WAGES, 


MINIMUM 


AND 


PERCENTAGE 




? 196,273,31.29, .26 










ENTER LOW AND HIGH WAGES, 


MINIMUM 


AND 


PERCENTAGE 




? 273,331,51.31, .30 










ENTER LOW AND HIGH WAGES, 


MINIMUM 


AND 


PERCENTAGE 




? 331,433,68.71, .34 










ENTER LOW AND HIGH WAGES, 


MINIMUM 


AND 


PERCENTAGE 




? 433,999,103.39, .39 










27 












27 63 









.15 


63 131 




5.4 




.18 


131 196 




17.64 


.21 


196 273 




31.29 


.26 


273 331 




51 . 31 


.3 


331 433 




68.71 


.34 


433 999 




103. 


39 


.39 


Break in 360 











The program gets table data from the terminal and places it into the 
"SINGLE"' file. The details of its operation deserve closer inspection. 

Line 180 reserves the spaces for the table T. The dimensions of the table 
are given in parentheses as 8,4. These dimensions show that the table con- 
sists of 8 rows (first dimension) by 4 columns (second dimension). Therefore 
32 positions are reserved for T. 

The data is entered into the table by the loop in lines 220-250. The 
"FOR-NEXT" loops the computer through the statements in 230 and 240 
eight times. The first time through the loop, R has the value 1. Therefore line 
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240 gets four values from the terminal and assigns them to row 1 (first di- 
mension; R is 1), columns 1 through 4 in turn. 

Then the NEXT R is encountered. The computer adds 1 to R and 
checks the R value against its limit (the 8 specified in the FOR statement). 
(Since R is less than 8, lines 230 and 240 are executed.) This time, the data 
are placed into row 2. 

Every time the computer encounters the NEXT R (until R would exceed 
8), it adds 1 to R and fills the next successive row of T After the eighth row 
has been filled, the looping is finished. The computer continues with the next 
statement in the program. 

Lines 310 through 340 print the data on the screen and also place it into 
the SINGLE file. The FOR-NEXT loop sends the computer through the 
statements in 320 and 330 eight times. For each value of L (1 to 8), it prints 
that row of the table and places the row into the SINGLE file. Thus the 
eight rows of T are filed away for future use. 

A similar program has to be written to place the data into "MARRID". 
You can use this program if you change the file name from "SINGLE" to 
"MARRID". 

These two tables are used in the calculation of the taxes for the employ- 
ees in "EMPTRA". We will also need the master file "EMPMAS" to get the 
number of exemptions and the year-to-date social security (YTD FICA). 
Each exemption claimed by the employee deducts $19.23 from taxable 
wages. And social security deductions are 6.7% up to a limit of $31,800 
gross pay. 

The old UPDATE program from Chapter 7 serves as the basis for solv- 
ing this problem. We have modified it to handle the tax tables and the social 
security calculations. 

Note: To run this program on the Model III, you must sign on and 
when asked HOW MANY FILES? type 5 and press "ENTER". 



Problem Summary 
Input 

"SINGLE" and "MARRID" files for the tax tables 

"EMPTRA" file for the weekly earnings 

"EMPMAS" file for the deductions and year-to-date FICA 

Processing 

For each employee: Calculate gross pay, social security (FICA), federal 
income tax (FIT), and net pay (by subtracting FICA and FIT from 
gross pay). 

Output 

The results of the "pay check" calculations, giving employee name and 
number, gross pay, social security and income tax deductions, 
and net pay 

The updated master file, "EMPMA1" 
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The program therefore has to 

1. Link to the files, 

2, Read and hold the tax tables. 



-\ n&t 



*r*^rA frA«, "CA/TDTD A" 



4. Find the matching record from "EMPMAS". 

5. Calculate gross pay. 

6. Determine the amount of the social security deduction: 

a. If YTD gross pay plus weekly gross pay is less than $31,800, then 
all of weekly gross pay is subject to FICA. 

b. If YTD gross pay is less than $31,800, but weekly gross pay added 
to YTD gross pay makes it greater than $31,800, then only that por- 
tion of weekly gross pay that brings the YTD up to $31,800 is sub- 
ject to FICA. 

c. If YTD gross pay is greater than $31,800, then no social security is 
withheld. 

7. Calculate taxable income by subtracting deductions from gross pay. 

8. Find the applicable tax in the tax tables. 

9. Calculate net pay. 

10, Update the master record and place it into "EMPMA1". 

1 1. Print the output, 

12, Repeat steps 3 through 12 for all other "EMPLOY" records, 

13. Terminate. 

A program to do all those tasks is shown on the following pages. 



100 
120 
130 
140 
150 
160 
170 
180 
190 
200 
202 
204 
210 
220 
230 

231 

on 

23 3 
234 
235 
236 
237 
238 
239 



REM 

REM 

REM 

REM 

PRINT 

PRINT 

PRINT 

PRINT 

REM 

REM 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

REM 

DT?M 

REM 
DIM 
FOR 



UPDATE OF MASTER FILE 



SET UP HEADINGS 



"EMPLOYEE 
"NUMBER 



NAME 



"I", 4, "SINGLE" 
"I", 5, "MARRID" 
"I", 1, "EMPMAS" 
"I" , 2, "EMPTRA" 
"0", 3, "EMPMAl" 

ffAV rp7\ nr t?c 



LI - 1 
INPUT #4, 
INPUT #5, 
NEXT LI 

REM 



GROSS 
PAY" 



FIT 



FICA 



NET" 



5(8,4), M ( 8 , 4 ) 
TO 8 

S(L1,1), S(L1,2), S(L1,3), S(L1,4) 
M(L1,1), M(Ll,2), M(L1,3), M(Ll,4) 
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240 REM 

250 REM READ A TRANSACTION RECORD 

260 REM 

270 INPUT #2, I,R,V 

280 REM 

290 REM READ A MASTER RECORD 

300 REM 

310 INPUT #1, N,D,N$,M,H,E,G,F,F1 

3 20 REM 

330 REM COMPARE ID'S 

340 REM 

350 IF I=N THEN 410 

360 IF I>N THEN 310 

370 IF KN THEN 750 

380 REM 

390 REM ID'S MATCH — DO COMPUTATIONS FOR UPDATE 

400 REM 

405 REM CALCULATE GROSS PAY 

406 REM 

410 Gl=(R*H)+(V*H*1.5) 

411 REM 

412 REM CALCULATE SOCIAL SECURITY 

413 REM 

414 F3=0 

415 REM 

416 REM SOCIAL SECURITY IS ZERO IF YTD GROSS OVER 31,800 

417 REM 

418 IF G-> 31800 THEN 433 

419 REM 

420 REM SOCIAL SECURITY IS 0.067 OF WEEKLY GROSS 

421 REM IF YTD GROSS 4- WEEKLY GROSS LESS THAN 31 , 800 

422 REM 

423 IF G+Gl > 31800 THEN 429 

424 F3=G1*0.067 

425 GOTO 433 

426 REM SOCIAL SECURITY IS 0.067 OF DIFFERENCE 

4 27 REM BETWEEN 31800 AND YTD GROSS 

428 REM 

429 F3=(31800-G) * 0.067 

430 REM 

431 REM CALCULATE TAXABLE INCOME BY SUBTRACTING EXEMPTIONS 
4 32 REM 

433 T^Gl - E*19.23 
43 4 REM 

435 REM DETERMINE TAX TABLE 

436 REM 

437 IF M=2 THEN 452 

438 REM 

4 39 REM M IS 1; FIND ROW IN SINGLE TABLE 

440 REM 

441 FOR Rl=l TO 8 

442 IF T <= S(R1,2) THEN 447 

443 NEXT Rl 

444 REM 
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445 REM CALCULATE TAX 

446 REM 

447 F2=S(R1,3) + (T-S(R1,1 ) ) *S(Rl, 4 ) 

448 GOTO 462 
44 9 kEw 

450 REM M IS 2; FIND ROW IN MARRID TABLE 

451 REM 

452 FOR Rl=l TO 8 

453 IF T <= M(Rl r 2) THEN 458 

454 NEXT Rl 

455 REM 

456 REM CALCULATE TAX 

457 REM 

458 F2=M(R1,3) + ( T-MCR1 , 1 ) ) *M( Rl , 4 ) 

459 REM 

460 REM CALCULATE NET FAY 

461 REM 

462 P = Gl - F2 - F3 

463 REM 

464 REM ADD WEEKLY GROSS, FIT AND FICA TO YTD TOTALS 

465 REM 

466 G = G + Gl 

467 F = F + F2 
470 F1=F1+F3 
480 P1=P1+P 
490 REM 

50 REM PRINT UPDATED MASTER RECORD 

510 REM 

520 PRINT #3 f N;D;N$; ,, ,";M;H;E;G;F;Fl 

530 REM 

540 REM PRINT ID, NAME, NET PAY 

550 REM 

560 PRINT USING" ### % % ####.## ####■## 

# #####. ##";N,N$,G1,F2,F3,P 

57 REM 

580 REM READ A TRANSACTION RECORD 

590 REM 

595 IF EOF(2) THEN 780 

600 INPUT #2, I,R,V 

610 GOTO 350 

7 20 REM 

7 30 REM MISSING MASTER RECORD 

7 40 REM 

750 PRINT "MASTER RECORD MISSING FOR EMPLOYEE NUMBER " ; I 

780 CLOSE #1,#2,#3,#4,#5 



####.# 



810 REM 

820 PRINT 

830 PRINT 

840 PRINT 

850 PRINT 

860 PRINT " 

870 PRINT 



UPDATED MASTER FILE" 
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880 OPEN "I", 4,"EMPMA1" 

8 90 PRINT "EMP DEPT NAME MARITAL HOUR EX~ YTD YTD 

YTD" 
900 PRINT "NUM STATUS RATE EMP GROSS FIT 

FICA" 
905 IF EOF(4) THEN 940 
910 INPUT #4,N,D,N$,M,H,E,G,F,F1 

920 PRINT USING"### ## % % # ##.## # #####.## 
####.## ####.##" ;N,D,N$,M,H,E,G,F,F1 
930 GOTO 905 
940 CLOSE #4 
950 STOP 
327 67 END 



EMPLOYEE 


NAME 


GROSS 






f: 


ET 


FICA 




ne: 


P 


NUMBER 






PAY 


















101 




ADAMS 


200.00 






14. 


.91 


13.40 




171, 


.69 


10 3 




BAKER 


257.60 






37 


.31 


17.26 




203, 


.03 


104 




BRAVE 


172.00 






7 


.36 


11.52 




15,3, 


.11 


108 




COHEN 


237.50 






18 


.19 


15.91 




20 3, 


.39 


172 




JOHNSON 


150.00 






21 


.63 


10.05 




118, 


.32 


198 




TANNER 


153.00 






4 


.51 


10.25 




138, 


.24 


202 




WILSON 


160.00 






2 


.68 


10.72 




146, 


.60 


206 




LESTER 


210.00 






16 


.71 


14.07 




179, 


.22 


255 




SCHMIDT 


257.60 






18 


.35 


17.26 




221, 


.99 


281 




MILLER 


240.00 






18 


.64 


16.08 




205, 


.28 


313 




SMITH 


195.50 






14 


.10 


13.10 




168, 


.31 


347 




GRAY 


228.00 






19 


.95 


15.28 




192, 


.78 


368 




WEAVER 


150.50 






17 


.70 


10.08 




122 


.72 


422 




WILLIAMS 


160.00 






11 


.33 


10.72 




137, 


.95 








UPDATED 


MASTER 


FILE 










EMP 


DEPT NAME 


MARITAL 


HOUR 




EX- 


YTD 


YTD 


YTD 


NUM 






STATUS 


RATE 




EMP 


GROSS 


FIT 


FICA 


101 


1 


ADAMS 


2 


5, 


.00 




3 


1200.00 


214. 


.91 


74.70 


103 


12 


BAKER 


1 


5, 


.60 




2 


1545.60 


294, 


.91 


96.21 


104 


17 


BRAVE 


2 


4, 


.00 




4 


1032.00 


179, 


.36 


64.24 


108 


16 


COHEN 


2 


6, 


.25 




4 


1425.00 


255, 


.69 


88.70 


172 


2 


JOHNSON 


1 


3, 


.75 







900.00 


171. 


.63 


56.03 


198 


1 


TANNER 


2 


4, 


.25 




4 


918.00 


157, 


.51 


57.14 


202 


16 


WILSON 


2 


4, 


.00 




5 


960.00 


162, 


.68 


59.76 


206 


7 


LESTER 


2 


5, 


.25 




3 


1260.00 


226, 


.71 


78.44 


255 


12 


SCHMIDT 


2 


5, 


.60 




5 


1545.60 


27 5, 


.95 


96.21 


281 


12 


MILLER 


2 


6, 


.00 




4 


1440.00 


258, 


.64 


89.64 


313 


7 


SMITH 


2 


4, 


.25 




3 


1173.00 


209, 


.60 


73.02 


3 47 


12 


GRAY 


2 


6. 


.00 




3 


1368.00 


247. 


.95 


85.16 


368 


1 


WEAVER 


1 


3, 


.50 




1 


903.00 


168, 


.20 


56,21 


422 


1 


WILLIAMS 2 


4, 


.00 




2 


960.00 


171, 


.33 


59.76 



The key statements for the table reference are in lines 452-454 for mar- 
ried employees and in lines 441-443 for single employees, where the appro- 
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priate row of the table is found. But before we can discuss that, let's look at 
how the tables were set up in line 234-238. 

First, line 234 reserves the space for two tables: S for single and M for 



*a ™«i 



cording to the tax tables of the Internal Revenue Service, each row corre- 
sponds to a range of income. The columns of the table are as follows: 

• Column 1 : the low end of the weekly income range 

• Column 2: the upper end 

• Column 3: the taxes up to the low end 

® Column 4: the tax rate for anything above the low end (but below the 
high end of the range). 

Then in lines 235-238 the tables are filled. The field LI stands for the 
row number. It is assigned the values 1 through 8 successively by the FOR- 
NEXT statement. For each value of LI, the four columns of each table are 
input. So if LI is 1, then the first row is filled. When LI is two, the second 
row of the tables S and M is given values. Once all eight rows are filled, we 
exit from the loop and start to process the employee records. 

Now we can see how to work with these tables. The taxable income has 
already been computed when we arrived at line 437, The statement in 437 
checks whether the single person or married person tax table has to be used. 
Depending on this test, we go either to line 441 for a single person or to line 
452 for a married person. 

The taxable income tells us what row of the table is used for the tax cal- 
culation. Hence taxable income is compared to the upper end of an income 
range. Because the ranges are in ascending order, each row holds the data 
for a weekly income that is less than the upper end of that row, but greater 
than the upper end of the earlier rows. Since the rows are checked starting 
with the lowest income, as long as taxable income is greater than the upper 
end of a range, we have not yet reached the correct row of the table. 

Once the right row has been found, then we can use the row number Rl 
to calculate the taxes. Line 458 calculates the tax for married employees and 
line 447 calculates the tax for single employees. 

Besides the table reference, this program also contains one other compli- 
cation-the social security calculation. Actually, there is nothing new in lines 
414-429; it's just cumbersome because we have to follow the rules of the 

iiiLvi ilcJLi i^Vwiui jci vice. r\li uic L-wnuiLiOiia nmjvc n awivvvtuu iu lOuuw tiic 

calculations. The program handles three conditions: 

i. Yeai-Lo-uaLc greater than $3I,ouu; in which case no sociai security is 
calculated (determined in line 418). 

2. Year-to-date plus weekly wages less than $31,800; where all of the 
weekly wages are subject to social security (calculated in line 424). 
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3. Year-to-date less than $31,800, but year-to-date plus weekly wages 
greater than $31,800; here the difference between $31,800 and the year- 
to-date is subject to a social security deduction. (That deduction is cal- 
culated in line 429.) 

TRS-80 BASIC has the ability to handle up to fifteen files in a pro- 
gram. However, if you have more than three files open simultaneously in a 
program, you must specify the number of files that the program uses when 
you sign on. 

Of course, the actual payroll calculation for a real firm would have many 
more deductions. Not included in this example are deductions for health in- 
surance, pension plans, payroll savings plans, state and local taxes where re- 
quired, union dues, etc. But from this example you can appreciate what is 
needed to do payroll calculations. 

Look at the other example that follows. 



Inventory Report; Some industries experience rapid price fluctuations. 
When prices fluctuate rapidly, it is often convenient to establish and main- 
tain separate price tables for parts in inventory. Table 8™ 3 shows the price 
table for the parts in inventory. 

Inventory Price Table 



Part Numbei 


r Price 


101 


5.25 


110 


7.00 


219 


3.25 


226 


3.10 


235 


6.20 


247 


4.85 



Example 



Table 8-3 



Management has asked for a report that shows the dollar value of issues and 
receipts by part number. The issues and receipts are in the transaction file 
"INVTR". 

Problem Summary 

Input 

"INVTR" file 

Price table file, 'TNVPRC" 

Processing 

Accumulate subtotals and totals for the dollar amounts issued and re- 
ceived by part number and for the file as a whole. 
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Output 

An inventory report, giving by part number the dollar amount of issues 
and the dollar amount of receipts. 



REM PROGRAM TO PRICE ISSUES AND RECEIPTS 

REM 

REM HEADINGS FOR REPORT 

PRINT 

PRINT 

PRINT " RECEIPTS AND ISSUES REPORT" 

PRINT 



100 
101 
102 
103 
104 
105 
106 

x..n...-r 

iu / 

110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 

a n n 

410 NEXT 
A 20 REM 
430 REM 
EIPT 
440 REM 



LINK TO FILES 



REM 

REM 

REM 

OPEN ,, I M / 1 / "INVTR M 

OPEN "I" ,2, "INVPRC" 

REM 

REM SET UP PRICE TABLE AND GET DATA FROM INVPRC 

REM 

DIM P(6,2) 

R=0 

IF EOF(2) THEN 300 

INPUT #2,N,D 

R=R + 1 

P(R,1)=N 

P(R P 2)=D 

GOTO 210 

REM 

REM READ AN INVENTORY TRANSACTION 

REM 

INPUT #1,P1,T1,Q1 

REM 

REM SET P9 TO PART NUMBER FOR LATER COMPARISON 

REM 

P9=P1 

REM 

REM DETERMINE PRICE OF PART BY COMPARING PI TO 

REM COLUMN 1 OF TABLE P 

REM 

FOR R=l TO 6 



DETERMINE WHETHER TRANSACTION IS SHIPMENT OR REC 
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450 IF Tl=2 THEN 540 

460 REM 

470 REM RECEIPT: T=l 

480 REM 

490 R1=R14-QI*P(R,2) 

500 GOTO 57 5 

510 REM 

520 REM SHIPMENT: Tl=2 

530 REM 

540 Sl=Sl+Ql*P(R, 2) 

550 REM 

560 REM READ NEXT TRANSACTION 

570 REM 

575 IF EOF(l) THEN 800 

580 INPUT #1, 

590 REM 

600 REM 

610 REM 

620 IF P1=P9 THEN 390 

630 REM 

640 REM PRINT OUT OLD PART NUMBER, RECEIPTS, AND SHIPMEN 

TS 

650 REM 

660 PRINT USING" ### #####,## #####.##" . P9 , Ri , si 

670 REM 

680 REM SET RECEIPT AND SHIPMENT ACCUMULATORS TO ZERO 

690 REM AND PROCESS TRANSACTION 

700 REM 

710 R1=0 

7 20 Sl-0 

7 30 GOTO 340 

740 REM 

800 CLOSE #1,#2 

32767 END 



P1,T1,Q1 

CHECK WHETHER IT'S THE SAME PART AS BEFORE 
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RECEIPTS AND ISSUES REPORT 



PART 


RECEIPTS 


ISSUES 


101 


787.50 


813.75 


'i i n 


A r\ r\ 


— r~ « *■* 


*~ -L- J 


U o u u 


D3.UU 


226 


542,50 


279,00 


235 


0.00 


186.00 



This program generates a report of receipts and shipments by part num- 
ber from the "INVTR" file. It performs the following tasks: 

1. It links to files "INVTR" and "INVPRC" (statements 140 and 150). 

2. It reserves room foi the price table (statement 190). 

3. It gets a part number and a price from "INVPRC" and assigns it to the 
price table (statements 200-260). 

4. It reads the first inventory transaction from "INVTR" (statement 300). 

5. It "remembers" the part number (statement 340). 

6. It processes the transaction: 

a. It determines which row of the price table has the same part num- 
ber (statements 390-410). 

b. It determines whether the transaction is a shipment or a receipt 
(statement 450) 

(1) It accumulates the dollar amount of receipts (statement 490). 

(2) It accumulates the dollar amount of shipments (statement 540). 

7. It reads the next transaction (statement 580). 

8. If the part number of this transaction is the same as the part number on 
a prior transaction, then repeat steps 6 and 7 (statement 620). 

9. If the part number of this transaction is not the same as the part num- 
ber of a prior transaction, then print the prior part number receipts and 
shipments (statement 660); set accumulators for receipts and shipments 
to zero (statements 710 and 720) and perform steps 5, 6 and 7. 

10. It terminates when out of transaction data. 

The table reference in this examnle is in steo 6.. Let's look at it again to see 
the details of its oneration. The nrice table P looks as follows* 
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101 


5.25 


110 


7.00 


219 


3.35 


226 


3.10 


235 


6.20 


247 


4.85 



Column 
Row 1 2 

1 

2 
3 
4 
5 
6 

Now let's take the first transaction: 

Pari Number Transaction Code Quantity 
101 1 150 

The FOR-NEXT loop starts R at 1. So in line 400 when we compare the 
part number (PI) to column 1 of the table, we have a match. Therefore we 
skip out of the loop (R is still 1 since it was not changed) and use this row 
number to calculate the dollar value of the receipt in line 490. 

That example was too easy. Take another transaction: 

Pari Number Transaction Code Quantity 
226 2 90 

Again R starts at 1 in line 390. The comparison between PI (the part 
number) and the table P (Row 1, Column 1) shows they are not equal 
Therefore we come to the NEXT R statement in 410. A one is added to R: R 
is now 2; and the comparison in line 400 is between PI (value of 226) and 
row 2, column 1 of table P (value of 1 10). Again, they are not equal. 

Notice that as R is changed, from 1 to 2, to 3, to 4, the program skips 
down the first column of P. At each value of R the next row of the table is 
used in the comparison. Once the proper row has been found, the row 
number (R) is used with the second column of P to calculate the dollar value 
of a transaction, either in line 490 or in line 540. 

Sometimes we must change the order of a small amount of data. For exam- SORTING LISTS 
pie, we might want a listing of our employees by descending order of gross AND TABLES 
pay for labor negotiations. Or we might want product lines in ascending or- 
der of sales. Or we might want to rank our customers by volume of sales. 
Sorting of files has already been mentioned. Appendix B has the sorts 
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needed. But sometimes the data is in lists or tables, not on a file, and we 
need to sort it. 

Let's assume that we need a list of employees in descending order of net 
pay. The nci pay of the employees has already been calculated In the revised 
employee payroll program. But the output from that program is in employee 
number sequence. Our need is in descending order of net pay. 

Problem Summary 
Input 

Employee number 

Employee name 

Weekly net pay 
Processing 

Store the fields in lists. Sort by weekly net pay (in descending order). 

Output 

Print employee name and number in descending order of pay. 

The program therefore has to: 

1. Get the employee data and put it into lists. 

2. Sort the list into descending order of net pay. 

3. Print the sorted data. 

4. Terminate. 

A program that performs these tasks is shown below: 

100 REM PROGRAM TO SORT LISTS 

110 REM 

120 REM SET UP LISTS TO HOLD DATA 

130 CLEAR 1000 

140 DIM LM(100) r N$(100),P(100) 

150 REM 

160 REM GET THE DATA PROM THE TERMINAL AND PLACE IT INTO 

170 REM THE LISTS 

180 REM 

190 L=0 

200 PRINT "TYPE EMPLOYEE NUMBER, EMPLOYEE NAME" 

210 PRINT "AND NET PAY - SEPARATED BY COMMAS " 

2. z, u r K 1 N X " Wri EN rlwion ED — T x P E 9 9 , A A ,99" 

230 INPUT N1,M£,P1 

240 IP Nl=99 THEN 330 

250 L=L+1 

260 NCL)=N1 

270 N$(L)=M$ 
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280 P(L)=Pl 

290 GOTO 230 

300 REM 

310 REM SORT THE DATA 

320 REM 

330 U=L-1 

340 F=0 

350 FOR K=l TO U 

360 REM COMPARE TWO CONSECUTIVE VALUES 

37 REM IF THEY ARE NOT IN ORDER, THEN EXCHANGE 

380 IF P(K) >= P(K+1) THEN 600 

400 REM 

410 REM VALUES OUT OF SEQUENCE, HENCE EXCHANGE 

420 REM 

430 T=P(K) 

440 P(K)=P(K+1) 

450 P(K+1)=T 

460 REM 

47 REM EXCHANGE NAME AND ID ALSO TO KEEP THEM 

480 REM AND RATES TOGETHER 

490 REM 

500 T=N(K) 

510 N(K)=N(K+1) 

520 N(K+1)=T 

530 T$=N$(K) 

540 N$(K)=N$(K+1) 

550 N$(K+1)=T$ 

560 REM 

570 REM SET F TO INDICATE THAT AN EXCHANGE HAS OCCURRED 

580 REM 

590 F=l 

600 NEXT K 

610 REM 

620 REM CHECK IF ANY EXCHANGES HAVE OCCURRED 

6 30 REM 

640 IF F=l THEN 340 

650 REM 

6 60 REM END OF SORT 

670 REM 

680 REM PRINT OUT LISTS WITH HEADINGS 

6 90 REM 

700 PRINT "EMPLOYEE" /"EMPLOYEE" , "WEEKLY" 

710 PRINT "NUMBER", "NAME", "PAY" 

720 FOR K=l TO L 

730 PRINT N(K) ,N$(K) ,P(K) 

740 NEXT K 

750 STOP 

32767 END 

TYPE EMPLOYEE NUMBER, EMPLOYEE NAME 
AND NET PAY - SEPARATED BY COMMAS 
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WHEN FINISHED - TYPE 99,AA,99 

? 101, ADAMS, 171. 69 

? 103, BAKER, 203.03 

? 104, BRAVE, 153. 11 

? 108, COHEN, 203. 39 

? 172, JOHNSON, 118. 32 

? 198, TANNER, 138. 24 

? 202, WILSON, 146. 60 

? 206, LESTER, 179. 22 

? 255,SCHMIDT,221.99 

? 281, MILLER, 205. 28 

? 313,SMITH,168.31 

? 347, GRAY, 192. 78 

? 368, WEAVER, 122. 72 

? 422, WILLIAMS, 137 .95 

? 99,AA,99 

EMPLOYEE EMPLOYEE WEEKLY 

NUMBER NAME PAY 

255 SCHMIDT 221.99 

281 MILLER 205.28 

108 COHEN 203.39 

103 BAKER 203.03 
347 GRAY 192.78 
206 LESTER 179.22 
101 ADAMS 171.69 
313 SMITH 168.31 

104 BRAVE 153.11 
202 WILSON 146.6 
198 TANNER 138.24 
422 WILLIAMS 137.95 
368 WEAVER 122.72 
172 JOHNSON 118.32 

Break in 750 



This program puts data into lists in lines 190-300. Then it sorts the lists 
in lines 340 to 640. Finally, it prints out the lists in lines 700 to 740. Let's 
look at each of these actions in turn. 

The storage of data starts by setting the field L to zero. L will be used in 
lines 250 through 280 to indicate the location in a list. Notice that the lists 
have 100 spaces each (the dimension is set in line 140), although fewer 
spaces wiii be needed lor our uala. 

Then line 230 gets the first record for the file. The program adds 1 to L 
in line 250. L is now 1. Hence in lines 260-280, the first (L value of 1) loca- 
tion of N, N$, and Pis filled with the values of Nl, MSandPl respectively. 

Line 290 takes us back to the input of data. As long as there are records 
in the file, the program reads the data; adds one to L; and places the desired 
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fields into successive locations in the lists. At the end of the data input, L 
will contain the number of records; L is also the highest position in the lists 
that has been filled with data. 

Lines 330 to 640 sort the data into descending order of weekly pay. The 
sort is finished when all items are in order. It works by comparing two adja- 
cent positions in the pay list. If they are in sequence, we compare the next 
two positions. But if two adjacent positions are out of sequence, they are 
first placed in the proper sequence before the next two positions are com- 
pared. 

We know that all items are in their proper sequence if we do not have to 
interchange any items. Whether an interchange has occurred is shown by a 
field (a "flag" called F in the program). The field is set to zero at the begin- 
ning of each pass through the array. When an interchange occurs, it is set to 
one. Therefore if F is one, we don't know yet that the lists are in their desired 
sequence. Line 640 tests F, and if F is one, we repeat the process. 

We can see the operations of this sort by looking at the first five records 
of the lists. These records would be in the lists N, N$ and P as follows: 







List 




Position 


N 


NS 


P 


1 


101 


Adams 


171.69 


2 


103 


Baker 


203.03 


3 


104 


Brave 


153.11 


4 


108 


Cohen 


203.39 


5 


172 


Johnson 


118.32 



Now let's start through the steps of the sort. First, U, a field to hold the 
upper limit for the comparisons, will be 4. Therefore K, the loop index, will 
take on values 1 to 4 in turn. Line 340 sets F to zero, because at this stage no 
exchanges have occurred. Then K is set to 1, and we compare the K (first) 
position and K + 1 (second) position in the net pay list. They are out of 
sequence. P(2) is $203.03, and P(l) is $171.69. To put them in proper order, 
Baker should come before Adams. Hence lines 430 to 450 interchange the 
values. 

Notice that an interchange is a three-step process. If we tried it in two 
steps, it wouldn't work: 

P (K) = P (K + 1) 
P (K + 1) - P (K) 

Why not? Because the computer is a sequential machine. For a K value of 1, 
the following would happen in the two-step process: Step 1: P (K) — 
P (K + 1). This means P (1) = P (2) and after the assignment the first two 
positions of P would look as follows: 
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Position 1 
Position 2 



203.03 
203.03 



Because we put the value from position 2 into the first position, they 
are both identical. The value in the first position is lost, wiped out, erased. 
And the second step would put a 203.03 into position 2 again. 

The three-step process works, because it puts the value for the first posi- 
tion temporarily somewhere else~in T. Now when a value is placed into 
P (K), we still have its old value in T as shown below: 



P{1) 



203.03 




1 




171.69 




\ 


9 




3/ 




P(2) 


203.03 





The numbers on the arrows give the sequence in which the assignments have 
to occur to do the exchange. 

At the end of line 450, our lists would look as follows: 



N 


N$ 


P 


101 


Adams 


203.03 


103 


Baker 


171.69 


104 


Brave 


153.11 


108 


Cohen 


203.39 


172 


Johnson 


118.32 



As you can see the net pays are in order, but they are not with the right em- 
ployee name and number. Lines 500-550 interchange the names and ID 
numbers so that the list will look like this: 



N 


N$ 


P 


103 


Baker 


203.03 


101 


Adams 


171.69 


104 


Brave 


153.11 


108 


Cohen 


203.39 


172 


Johnson 


118.32 



Then line 590 sets F to 1 because an interchan CT e has occurred and we are 
ready for the next K value. 

When K is 2, the second (Kth) and third positions of P are compared. 
They are already in sequence. Therefore we go to the next K value. 
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When K is 3, we compare the third and fourth position. They are out of 
sequence. Therefore we interchange and our list would look as follows 
before the next K value is executed: 



TV 


N$ 


P 


103 


Baker 


203.03 


101 


Adams 


171.69 


108 


Cohen 


203.39 


104 


Brave 


153.11 


172 


Johnson 


118.32 



When K is 4, the comparison between the fourth (Kth) and fifth 
(K + 1) values of P shows that they are in sequence. 

Since K has now reached its upper limit (the value of U), the looping is 
finished. But a check with F (in line 640) shows that at least one exchange 
has occurred. Since the lists may not be in sequence, the program sends us 
back to 350 for another pass through the data. 

At the end of the second pass (K value of 1, 2, 3 and 4), the lists would 
look as follows: 



N 


N$ 


P 


103 


Baker 


203.03 


108 


Cohen 


203.39 


101 


Adams 


171.69 


104 


Brave 


153.11 


172 


Johnson 


118.32 



It takes one more pass to get the data in order and another to assure us that 
no more interchanges are needed. Then we know that the lists are in the de- 
sired sequence. 

Notice that the sequence of the items is basically defined by the test in 
line 380. In this example, the contents of two adjacent positions in the list 
are compared to see if they are in descending sequence. 

It is important that two equal values not be exchanged. If the test in 380 
was just greater than (as opposed to the actual greater than or equal), then 
two values that were equal would be exchanged. And they would be ex- 
changed again in the next pass. And the next. And the next. And the next. 
In fact, the exchanges would never end. 

A situation like that, called an infinite loop, can cost you a lot in com- 
puter time. Therefore care must be taken to avoid infinite loops. In this case, 
the test must be a greater than or equal, or less than or equal, so that an infi- 
nite loop is not generated. 
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There is one new instruction in the program: 

130 CLEAR 1000 

The CLEAR instruction must be used to provide space in memory for hand- 
ling more than 100 alphabetic characters at the same time. Normally, it is 
not necessary in handling records, but in the case of this program, where all 
of the names are brought into memory, it must be used, or an error message 
will occur when you run the program. 

SUMMARY This chapter has discussed the use of lists and tables. Lists and tables are 

convenient ways to hold data either for subsequent processing or for output 
after processing. 

In the first example, a list was used to accumulate departmental totals. 
To use the list, space for the list had to be reserved and labelled. To access 
individual elements of the list, subscripts giving the location of a position in 
a list had to be used. 

Tables are different from lists, because two subscripts are needed-a row 
indicator and a column indicator. Two tables were used to determine income 
taxes for the employees. 

Besides lists and tables, this chapter also presented a way to perform 
looping. The FOR-NEXT instruction lets you control how often a set of 
BASIC statements would be executed. 

BASIC instructions Introduced; 

Statement Explanation 

CLEA.R n Allocates space in memory for n alphabetic char- 

acters. Used only when n is greater than 100. 

DIM Y(X),Z(Q,R) Sets the lists Y (represented by a letter) to X posi- 

tions. Defines that Z (represented by a letter) has 
Q rows and R columns. Individual elements of 
lists and tables are identified by their location: 
the position number in a list or the row number 
and column number in a table. X, Q, and R must 
be numbers. 

FOR Y = N TO M Sets up a loop. The FOR statement begins the 

: loop, it sets Y to N (beginning value); the loop 

NEXT Y will continue until Y has a value Greater than M 

(the upper bound). The NEXT statement closes 

the loop, 
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1. Write a program that will generate a summary report of inventory by 
department from the "INV" file (see Chapter 5). Use a list to hold the 
inventory cost by department. 

2. A machine shop has seven machines. When an order for a part arrives, 
the sequence in which any of the seven machines will be us mined. To 
make a part requires four of the seven machines. The time in minutes for 
each machine to make a part is shown below: 

Machine Time 



PROBLEMS 



1 


20 


2 


30 


3 


12 


4 


26 


5 


32 


6 


17 


7 


14 



Write a program to store the data as a table in the "MCHTM" file. 
The data regarding orders will be input from a terminal. Order data 
consists of an order number and the numbers of the machines in the 
required sequence to make the part. The following orders have ar- 
rived: 

Order Number Machine Sequence 

7442 2,4,5,6 

7443 1,5,3,7 

7444 1,6,5,4 

7445 1,3,6,7 



Write a program that will input the "MCHTM" file and the order data; 
then print the order number and the total time required to process that 
order, 

3. In Problem 2, the time required to transport the orders from one 
machine to another has been neglected. Modify your program to take 
transportation times into account in determining the total time to pro- 
cess an order. The transportation time in minutes are as follows: 











To Machine 












1 


2 


3 


4 


5 


6 


7 




1 





15 


23 


1 


16 


5 


19 




2 


12 





16 


9 


12 


17 


5 


From 


3 


25 


14 





12 


17 


12 


18 


Machine 


4 


8 


12 


13 





9 


8 


14 




5 


19 


14 


15 


11 





12 


10 




6 


7 


15 


10 


10 


15 





9 




7 


17 


8 


14 


18 


12 


13 
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Write a program to store the transportation time as a table in the 
"TRTM" file and modify your program in Problem 2 to include trans- 
portation time. Use the same order data as in Problem 2. 

4. Change the sort program in this chapter (page 206) so that it will sort in 
ascending order. Use the net pay data to test the program. 
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At the end of this chapter you should be able to: 

• Create direct access files 

• Read and print direct access files 

• Change field values in a direct access record 

• Update master records in a direct access file 

• Query records in a direct access file 

So far, sequential files have been used exclusively for all problems, exercises, 
and examples. There is one major drawback in using sequential files — every 
time you want to read any record in a file you must start with the first record 
and read each record until the desired record is reached. If a file has 2,000 
records, and you want to print the 1,995th record, 1,995 records would have 
to be read to reach the record to be printed. A great deal of time would be 
wasted reading and testing every record until the one to be printed is reached. 
The time to reach a record in a sequential file is proportional to the position 
of the record (first, middle, last) in the file. 

You may still wonder why a few seconds may be important. A sequen- 
tial file of 2,000 records with the same fields as "EMPLOY" was created to 
test the time required to find and print a record. It took less than a second to 
read and print the first record. It took almost two minutes to read and print 
the 1,995th record! 

In the early days of computers, only sequential files were available. But 
to reduce the time required to find a record, direct access files were devel- 
oped. All direct access files share one characteristic —the time to find any 
record in a file is constant. With direct access files, there is a method to find 
a record without reading from the beginning of a file. 



Performance 
Objectives 



There is one way to create and use direct access files in TRS-80 BASIC. It 
follows the techniques of Chapter 8 where lists and tables were discussed. 
We shall create a direct access file in almost the same manner as a table is 
created. An inventory example will be used throughout this chapter to illus- 
trate the use of direct access files. 

The data for the inventory master file are found in Table 9-1. Note that 
the part number and the record number are the same! In an actual business, 
the part number would be a multi-digit number within which the record 
number would exist or be added to the existing part number after a dash. 
For example, part number 27364-001 could indicate that part 27364 is re- 
cord number one. There are other more sophisticated ways of obtaining re- 
cord numbers from part numbers; but they are beyond the introductory 
level of this book. 



CREATING A 
DIRECT ACCESS 
FILE 
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f Start J 



Open File 



R = 1 to 10 



/ Input / 

/ a Record / 



Change Form 
of Input Data 



f Write a Record 
to File 



Next R 



Close File 



f Terminate j 



Figure 9-1 



Flowchart to Create a Direct Access File 



Creating a Direct Access File / 219 



Inventory Master File— "INVMST" 



Table 9-1 



Part 


Stock 


Unit 


Number 


on Hand 


Cost 


1 


590 


1.50 


2 


750 


2.75 


3 


231 


1.39 


4 


395 


5.96 


5 


674 


7.23 


6 


279 


6.79 


7 


942 


4.26 


8 


27 


5.49 


9 


152 


1.26 


10 


420 


3.74 



Problem Summary 



Input 

Inventory master file. 



Processing 

Input the data at execution time. 

Output 

Instructions for input and a direct access file, "INVMST". 

The program consists of the following steps: 

1 . Link to the direct access file. 

2. Input the data. 

3. Change the form of the input data. 

4. Write the record to the diskette. 

5. Stop when ten records have been processed. 

See the flowchart (Fig. 9-1). A program to perform all of these steps is 
below: 



100 REM 

110 REM 

120 REM 

130 REM 

140 REM 

150 REM 

160 OPEN "R" ,1, "INVMST" 

165 FIELD #1, 8 AS Al$ , 8 AS A2$, 8 AS A3$ 

170 REM 



THIS PROGRAM CREATES A DIRECT ACCESS PILE 
AND INPUTS THE DATA 



OPEN THE FILE 
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310 REM 

320 REM INPUT THE RECORDS ONE AT A TIME 

330 REM 

O40 FOR R=l TO 10 

■3 50 PRINT "TYPE PART NUMBER, STOCK ON HAND, UNIT COST" 
>360 INPUT A1,A2,A3 

361 REM 

362 REM 

363 REM CHANGE THE FORM OF THE INPUT FIELDS 

364 REM 

065 RSET A1$=MKD$(A1) 
♦366 RSET A2$=MKD$(A2) 
•367 RSET A3$=MKD$(A3) 

368 REM 

369 REM PUT THE RECORD IN THE FILE 

370 REM 

^ 375 PUT 1,R 

376 REM 

377 REM 
-^380 NEXT R 

390 REM 

400 REM FINISH 

410 REM 
■A 420 CLOSE #1 
430 STOP 
32767 END 

Before discussing the program, there is a very important concept that 
must be understood. The creation of a direct access file results in a file on 
the diskette that is similar to a table. The rows of the table correspond to 
records in the file. The record is identified by its row number which is the 
same as the record number since each row consists of one record. 

Direct access files are opened in the same way as sequential files. The 
only difference is the "R" in the OPEN instruction to designate a direct 
access file. The next statement 

165 FIELD #1 , 8 AS All, 8 AS A2$, 8 AS A3$ 

is called a FIELD instruction, and it is necessary when a direct access file is 
opened. All data is stored for direct access records in alphanumeric (both 
alphabetic and numeric) form. The three fields in the record are Al$, A2$, 
and A3$ — they each must have a $. The length of each field must be 
defined. The number 8 is used to indicate that eight characters will be the 
maximum number of characters in each field, lire tile number (#1) in the 
FIELD instruction refers to the file number assigned in the OPEN state- 
ment. So we have defined, at this point in the program, a direct access file 
("INVMST") that has three fields (Al$, A2$, A3$) where each field will 
have a maximum of eight characters. 

in the FOR-NEXT loop, lines 340-380, we first input the numeric data 
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from the keyboard as fields Al, A2, and A3 as usual Next, the numeric 
data has to be changed to alphanumeric data. This is done in lines 365-367. 

365 RSETA1$ = MKD$(A1) 

All three lines are identical except for the field names. Line 365 takes the nu- 
meric data in field Al and changes it into the appropriate alphanumeric 
form to be stored in a direct access record. This is done by using the func- 
tion MKD$ and the instruction RSET. 

The last step in the loop is the writing of the record to the diskette. The 
form of this instruction is PUT 1 ,R where the 1 refers to the file number and 
the R is the record number, A list of fields is not used since they have been 
specified in the FIELD statement. 

The loop is repeated for ten records and the file is closed. 

Upon completion of the data input, you have set up and stored the 
direct access file "INVMST" as if it were a table. The file looks like Figure 
9-2. 



The program to read and print out the inventory master file is given below. 



Row 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 



Field 

2 



1 


590 


1.50 


2 


750 


2.75 


3 


231 


1,39 


4 


395 


596 


5 


674 


7.23 


6 


279 


6.79 


7 


942 


4.26 


8 


27 


5.49 


9 


152 


1.26 


10 


420 


3.74 



The Direct Access File— "INVMST" 



READING AND 

PRINTING A 
DIRECT ACCESS 
FILE 



Figure 9-2 



100 


REM 








110 


REM 




THIS PROGRAM READS 


AND PRINTS 


111 


REM 




FILE 




120 


REM 








130 


REM 








140 


REM 




PRINT HEADINGS FOR 


PRINTOUT 


150 


REM 








160 


PRINT 


" PART 


STOCK UNIT" 




170 


PRINT 


"NUMBER ON HAND COST" 




180 


REM 








230 


REM 




OPEN THE FILE 





THE "INVMST" 
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240 REM 
^250 OPEN "R" ,1, "INVMST" 

260 REM 



C i. £j U L> 



269 REM 
27 REM 
280 REM 
290 REM 
^300 FOR L=l TO 10 

302 REM 

303 REM 

304 REM 
#305 GET 1,L 

307 REM 

308 REM 
30 9 REM 

/310 Al=CVD(Al$) 
-311 A2=CVD(A2$) 
•312 A3=CVD(A3$) 

313 REM 

314 REM 

•315 PRINT USING "### 
<320 NEXT L 

330 REM 

340 REM FINISH 

350 REM 

360 CLOSE #1 
,32767 END 



PRINT THE FILE 

L INDEX IS THE RECORD NUMBER 



GET THE RECORD FROM THE FILE 



CHANGE THE FORM OF THE FILE DATA 



#### 



##.##";A1,A2,A3 



In lines 160 and 170 the headings for the output are printed. Next, the 
file is opened and the FIELD statement used. Within the loop, line 305 GET 
1,L reads the Lth record of file number 1 ("INVMST"). The data in the 
record is in alphanumeric form and must be converted back to numeric 
form in order to be printed out. The function CVD does the conversion. 
Lines 310-312 perform this function. All three lines are identical once again, 
except for the field names. 

310 A1=CVD(A1S) 

The last step in the loop is the printing of the record. The loop is 
repeated for the ten records and the file is closed. 



CHANGING It is necessary to change values in an inventory master record due to price 

VALUES IN A changes and adjustments. The stock on hand has to be adjusted because a 

DIRECT ACCESS manual count of stock on hand just took place. The following records have 

FILE to be adjusted for stock on hand or cost. 
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Changes to the Inventory Master File Table 9-2 


Part 


Stock 


Unit 


Number 


on Hand 


Cost 


1 


600 


2.00 


9 


152 


1.40 


6 


230 


7.00 


3 


231 


1.50 


10 


500 


4.00 


5 


674 


7.25 


Since "INVMST" is a direct 


access file 


, you do not have to order the 


changes by record (part) number. 







Problem Summary 

Input 

Inventory master file, "INVMST" 

Processing 

Find the record to be changed. Input the new values. 

Output 

The inventory master file, "INVMST*, with the appropriate records 

changed. 



See the flowchart (Fig 9-3). A program follows: 

10 REM 

l 10 REM THIS PROGRAM CHANGES RECORDS IN THE FILE 

120 REM 

230 REM OPEN THE FILE 

240 REM 

250 OPEN "R",l, "INVMST" 

260 REM 

265 FIELD #1, 8 AS Al$ , 8 AS A2$, 8 AS A3$ 

26 9 REM „„, 

27 REM INPUT RECORD NUMBER (PART NUMBER) 

280 REM 
fr290 PRINT "WHAT IS THE RECORD NUMBER? TYPE 9999 TO END" 

•300 INPUT R 
310 REM 
320 REM TEST FOR END OF INPUT 

330 REM 
^340 IF R=9999 GOTO 740 

350 REM 

360 REM PRINT OUT RECORD 

•36 5 GET 1,R 

370 REM 

380 REM CHANGE THE FORM OF THE DISK DATA 

390 REM 
'400 A1=CVD(A1$) 
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410 A2=CVD(A2$) 

420 A3=CVD(A3$) 

430 REM 

435 PRINT "IS THIS THE RECORD TO BE CHANGED?" 

A A A nnTkim nnTun luniii h » n n 

- 3 -*w i.,vi^ x u^x^o «■ jMr # tHf tf If ff . f ff :i ; Ai. , A A , A J 

450 REM 

460 REM IS THIS THE RIGHT RECORD? 

47 REM 

*480 PRINT "TYPE Y IF YES, N IF NO" 

^490 INPUT B$ 

500 REM 

510 REM IF NOT CORRECT RECORD GO BACK TO INPUT 

520 REM 

*530 IF B$="N" GOTO 290 

540 REM 

RRO PP!M PnDDPPTi opnnnn TXT^rtm k-i ••-,,■.■, ,,„ ,- ,,,-,,, 

560 REM 

570 PRINT "TYPE THE NEW VALUES: STOCK ON HAND, UNIT COST 1 

580 INPUT A2,A3 

590 REM 

600 REM CHANGE THE FORM OF THE INPUT DATA 

610 REM 

620 RSET Al$=MKD$(R) 

630 RSET A2$=MKD$(A2) 

640 RSET A3$=MKD$(A3) 

6 50 REM 

^60 REM PUT THE RECORD ON THE DISK 

*670 PUT 1,R 

680 REM GO BACK FOR MORE INPUT DATA 

690 REM 

?700 GOTO 290 

710 REM 

720 REM FINISH 

730 REM 

740 CLOSE #1 

7 50 STOP 
32767 END 



The program opens "INVMST" as a direct access file in line 250. The 
FIELD statement is in line 265. Next, record (part) number is input in line 
300. A test for the end of data input is on line 340. It is important to check 
that the record to be changed is the one found. The record is retrieved in line 
365, the form is changed in lines 400-420, and it is printed out in line 440. 
Then a Y or an N is input to verify that the record printed out is the record 
to be changed. The Y or N is tested in line 530. If the input is Y. then the 
values for stock on hand and price are input in line 580. The form of the 
input data is changed in lines 620-640 and the record is written to the disk- 
ette in line 670. Next, the record number is requested. The end of the pro- 
gram is signalled by input of 9999 for record number. The file is closed and 
the program ends. 
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c 


Start 


) 


If 


Open File 


Y 


>l 


Input R 




L 




Close File 



— >-f Terminate J 



Read Record 



Change Form 
of Data 



/ Print Record / 



/Write Record / 




Change Form 
of Data 



< J Input / 

J New Vaiues / 



Flowchart for Changing a Record 



Figure 9-3 



In all programs that read and write direct access files, it is necessary to 
perform the following steps: 

1. OPEN the file. 

2. Define the FIELDS of the records in the file. 

3. Read the record (GET). 

4. Change the form of the fields. 
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5. Perform manipulations of the data. 

6. Change back the form of the fields. 
7 Wri tf> the record (PUT) . 

8. CLOSE the file. 

You should notice that the time required to print out a record after the 
record (part) number is given, is the same for all records. There is no need to 
read from the beginning of the file to reach any record. After you have input 
the changes given in Table 9-2, run the program that prints out 
"INVMST". The file should look like Table 9-3 after the changes: 



Table 9-3 



Inventory Master File After Changes 



Part 


Stock 


Unit 


Number 


on Hand 


Cost 


1 


600 


2.00 


2 


750 


2.75 


3 


231 


1.50 


4 


395 


5.96 


< 


674 


7.25 


6 


230 


7.00 


7 


942 


4.26 


8 


27 


5.49 


9 


152 


1.40 


10 


500 


4.00 



UPDATING 

MASTER 

RECORDS IN A 

DIRECT ACCESS 

FILE 



The next logical step, after you have mastered changing records in a relative 
record file, is to update the file. The update described below produces an 
instantaneously updated master file. There is no transaction file. Each 
transaction record updates its appropriate master record as soon as it is 
entered. In order to add a touch of realism to the update of the inventory 
master file "INVMST", assume that there are two computer terminals in 
the area where inventory is kept. The first terminal is located at the unload- 
ing area where shipments are received from suppliers. The second terminal 
is located by the loading area where items are shipped (issued) to the com- 
pany's customers. 

The first terminal is used to enter any receipts to inventor^ as soon as 
they are placed in inventory. The second terminal is used to enter any ship- 
ments (issues) from inventory. 

The update program to handle direct access files is much simpler than 
the inventory update program in Chapter 7, A transaction code will be used 
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to indicate a receipt to inventory (code = 1) and a shipment from inventory 
(code = 2). A transaction consists of three fields: the code, part number, 
and amount. If a shipment transaction (code = 2) has an amount greater 
than the stock on hand, the order cannot be filled. The program should can- 
cel the shipment and keep the old value of the stock on hand. The transac- 
tion data can be found in Table 9-4. 

Transaction Data to Update "INVMST" Table 9 ~ 4 



Transaction 


Part (Recor 


■d) 




Code 


Number 




Quantity 


1 


9 




50 


2 


2 




500 


1 


10 




200 


1 


5 




75 


2 


9 




50 


1 


1 




40 


1 


2 




100 


2 


8 




50 



Problem Summary 

Input 

Inventory master file, "INVMST" (Table 9-3) 
Transactions 

Processing 

Determine the transaction code and update the appropriate master 

record. 

Output 

An updated master file. 



See the flowchart (Fig 9-4). A program appears below: 

100 REM UPDATE OF "INVMST" IN REAL TIME 

110 REM 

120 REM 

170 REM OPEN THE FILE 

180 REM 

190 OPEN "R",l, "INVMST" 

195 FIELD #1, 8 AS Al$ , 8 AS A2$ , 8 AS A3$ 

200 REM 

210 REM INPUT TRANSACTION CODE 

220 REM 

230 PRINT "TYPE THE TRANSACTION CODE: 

240 PRINT " 1 IS A RECEIPT TO INVENTORY" 

250 PRINT " 2 IS A SHIPMENT FROM INVENTORY" 

260 PRINT "TYPE 9999 TO END" 
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270 INPUT T 

280 REM 

290 REM TEST TO END DATA INPUT 

30 REM 

310 IF T=9999 THEN 690 

320 PRINT "TYPE THE PART NUMBER , QUANTITY " 

330 REM 

340 REM INPUT TRANSACTION DATA 

350 REM 

360 INPUT M,Q 

361 REM 

362 REM GET THE RECORD FROM THE FILE 

363 REM 

36 4 GET 1,M 

370 REM 

380 REM TEST FOR A RECEIPT TO INVENTORY 

400 IF T=l THEN 610 

410 REM 

420 REM SHIPMENT FROM INVENTORY 

430 REM 

435 A2=CVD(A2$) 

440 A2=A2-Q 

441 IF A2<0 THEN 540 
445 RSET A2$=MKD$(A2) 

449 PUT 1,M 

450 REM 

460 GOTO 230 

470 REM 

490 REM 

50 REM NOT ENOUGH STOCK ON HAND TO SHIP, 

510 REM CANCELL ORDER AND REPLACE OLD STOCK 

520 REM ON HAND VALUE 

530 REM 

540 A2=A2+Q 

550 PRINT "*** NOT SUFFICIENT STOCK, ONLY n ;A2 ; "UNITS ON HAND" 

560 PRINT "****** SHIPMENT CANCELLED NOTIFY CUSTOMER ********* 

57 GOTO 2 30 
580 REM 

590 REM RECEIPT TRANSACTION; ADD QUANTITY TO STOCK ON HAND 

600 REM 

610 A2=CVD(A2$) 

611 A2=A2+Q 

613 RSET A2$=MKD$(A2> 
615 PUT 1,M 
620 REM 



6 40 REM 

650 GOTO 230 

660 REM 

670 REM FINISH 

680 REM 

690 CLOSE #1 

7 00 STOP 
32767 END 
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Flowchart of Direct Access Update 



Figure 9-4 
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In the program, "INVMST" is opened. In line 270 the transaction code 
is input, followed by the test to end data input. The transaction part 
(record) number and quantity are input next in line 360. After reading the 
record from "INVMST", the test for the transaction code is at line 400. If 
the transaction is a shipment from inventory (code = 2), then lines 410 
through 570 are executed. If there is enough stock on hand, A2, to make the 
required shipment, then the stock on hand is adjusted for the shipment in 
line 440: A2 = A2 - Q. If Q is greater than the stock on hand, A2, then the 
newly assigned value of A2 in line 440 will be negative. For example, the 
stock on hand is 20 and you wish to ship 30 units; there would be - 10 units 
in stock on hand. Line 441 tests for this condition. If the condition (stock 
on hand is less than zero) exists, then the old value of stock on hand is re- 
placed in line 540, A2 = A2 + Q, and the shipment is cancelled (lines 550 






If the transaction is a receipt to inventory (code= 1), then in line 611 
the quantity received is added to the stock on hand, A2 = A2 + Q, and that 
record is written on "INVMST", Then another transaction code is entered. 

The writing of the updated master record occurs at lines 449 and 615 
where A2 is assigned a value contingent upon the transaction code and other 
tests. The update program uses the same concept as the program to change a 
record. As soon as a transaction is entered, the master record is updated. 
The last transaction will result in a shipment being cancelled. 

After the update program is run with the transactions given in Table 
9-4, run the program that prints the "INVMST" file. The file should look 
like Table 9-5. 

A direct access master file is organized by ascending record number. 
The transaction may be entered in any order. The time required to update a 
master record is the same, regardless of its location in the file. 



Table 9-5 The "INVMST" File After Updating 



Part 


Stock 


Unit 


Number 


on Hand 


Cost 


1 


640 


2.00 


2 


350 


2.75 


3 


231 


1.50 


4 


395 


5.96 


j 


;^y 


/ .jLTj 


6 


230 


7.00 


7 


942 


4.26 


8 


27 


5.49 


9 


152 


1.40 


in 


700 


4.00 
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If transactions are entered from the two terminals in the inventory area 
as stock is received and shipped, then the master file is updated in real-time. 
Real-time updating means the master files contain the latest up-to-the-sec- 
ond information. This is especially important when dealing with inventory. 
In order to have real-time updating, direct access files must be used. Real- 
time updating may be contrasted with batch updating, which has a time cy- 
cle (a day, a week, or a month) for the running of the update program. The 
update programs in Chapter 7 were examples of batch updating. The trans- 
actions were accumulated in a file during the time cycle. Then they were 
sorted and the update program was run at the end of the cycle. 



If the update is in real-time, then any time you retrieve and print a record of 
the master file, it contains the latest stock on hand. This is very useful when 
you consider that a company has a sales department. Salesmen need to know 
the latest inventory levels in order to give customers reasonable delivery 
dates. Assume, in our inventory example, that there is a third terminal in the 
sales department. When a salesman writes an order for a customer, he 
phones the sales department to determine whether sufficient stock is on 
hand to fill the order. The program that retrieves and prints master records 
is called a query program. "Query" is a short form for "inquire". The pro- 
gram is the same as the first part of the program for changing a record. 

Problem Summary 
Input 

Part (record) number 

Inventory master file, "INVMST" 
Processing 

Retrieve a master record. 
Output 

Print the appropriate master record. 



QUERYING 
RECORDS IN 

A DIRECT 
ACCESS FILE 



OPEN THE FILE 



100 REM 

110 REM QUERY PROGRAM 

120 REM 

130 REM 

180 REM 

190 REM 

200 OPEN "R n ,l, "INVMST" 

20 5 FIELD I, 8 AS Al$ , 8 AS A2$, 8 AS A3$ 

210 PRINT "WHAT IS THE PART NUMBER? TYPE 9999 TO END" 

220 REM 

2 30 REM INPUT PART NUMBER (RECORD NUMBER) 

240 REM 

250 INPUT R 

260 REM 
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27 REM TEST FOR END OF DATA INPUT 

280 REM 

290 IF R=9999 GOTO 430 

30 REM 

310 REM PRINT OUT RECORD 

320 REM 

330 PRINT "PART STOCK UNIT" 

340 PRINT "NUMBER ON HAND COST" 

341 REM 

342 REM GET THE RECORD 

343 GET 1,R 

344 REM 

345 Al= CVD(A1$) 

346 A2=CVD( A2$) 

347 A3=CVD(A3$) 

350 Pkint USING "### tf#tf# ##.##" ;A1,A2, A3 

360 REM 

37 REM GO BACK FOR MORE INPUT 

380 REM 

390 GOTO 210 

400 REM 

410 REM FINISH 

420 REM 

430 CLOSE #1 

440 STOP 

32767 END 



The sales department would run this program to see if a customer's or- 
der could be filled. In a sophisticated company, the salesman would have 
portable terminals that use a telephone to reach the computer. Also the pro- 
grams would be more complex in order to allow a salesman to reserve stock 
and to ship partial orders. 



SUMMARY In this chapter a type of direct access file is introduced. The programs neces- 
sary to handle a direct access file were given. In essence, a direct access file 
can be treated as a table where the rows represent records and the columns 
represent fields. The example throughout this chapter was inventory, not 
payroll. Inventory was selected because it represents a good example of the 
requirement for real-time updating. The real-time example was illustrated 
by an update where, as soon as a transaction was generated, the master file 
was updated. The final section dealt with an inquiry program that reads and 
prints records from a direct access file. 
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BASIC Instructions Introduced: 

Instruction 
OPEN "R",l, "filename" 

FIELD #1, nl AS fieldnamel$, 
n2 AS fieldnarne2$ 



RSET fieldname$ - MKD$(fieldname) 
fieldname = CVD(fieldnameS) 
GET1,L 
PUT1,L 



Explanation 

Opens a direct access file as file 
number 1 . 

Defines the fields for records of 
file number 1; nl, n2 are the 
maximum characters in fields 1 
and 2; fieldnamelS, fieldname2$ 
are the fieldnames used in the 
diskette file and are alpha- 
numeric. 

Changes the numeric form of 
data in a field to alphanumeric. 

Changes the alphanumeric form 
of data in a field to numeric. 

Reads record L of file number 
one from diskette. 

Writes record L to diskette on file 
number one. 
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PROBLEMS 1 . Modify the first program in this chapter so that you can stop an input 
session and continue entering the data at any point in the file without 
having to re-enter all the earlier records. To test your program, create a 

2. Create a direct access file, "CUMST", with eight records as follows: 
Customer Number Current Balance 

1 $25726 

2 194.40 

3 276,00 

4 0.00 

5 5127 

6 29.32 

7 426.25 

8 972.36 

3. Write a program that will print the "CUMST" file as described in Prob- 
lem 2. 

4. Write a program that will update the "CUMST" file. There are three 
types of transactions: payments, purchases, and returns. Payments 
should be subtracted from the current balance (Transaction code = 1). 
Purchases should be added to the current balance (TR. CODE^ 2). Re- 
turns should be subtracted from the current balance (TR CODE- 3). If 
customers have a current balance less than zero, a message should be 
printed to issue a refund check to the customer. Use the following trans- 
actions to test your program: 

Transaction Code Customer Number Amount 

1 5 51.27 

1 1 200.00 

2 4 57.26 

1 3 250.00 

2 8 320.21 

3 5 23.27 

1 2 194.40 

2 1 72.73 

3 7 157.29 

5. Write an inquiry program for the "CUMST" file, so that customers may 
call and be given their latest balance. 
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At the end of this chapter you should be able to: 

© Use "canned" programs 

• Recognize the role of structured programming 

Programming is the expensive aspect of computer systems. It is also the 
most time-consuming. Without programs the computer cannot solve 
problems. However, once a program has been written and debugged (i.e., the 
errors have been removed), then using these programs to help solve recur- 
ring problems is simple. 

In progressing through this book, you have built a program library. If a 
problem should develop that is similar to those you've already solved, you 
don't have to write a brand new program. Merely modify the appropriate 
program to meet the new requirements and it can aid in arriving at a solu- 
tion. In effect, your program library is a toolbox. Simple changes to your 
tools allow you to solve most data processing problems. 

You may have access to programs other than those you've written. Any 
number of sources may have contributed skills and energies to fill your tool- 
box: the vendor of your computer system, an independent consultant, other 
people in your organization, or other organizations in your industry. 

At times it is difficult to transfer programs from one system to another. 
The procedures and problems of one organization may not match the proce- 
dures and problems of another organization. In other cases the transfer of 
programs is easy. Statistical, scientific, and engineering programs transfer 
easily from one organization to another. No matter what organization uses 
them, the rules for performing statistical computations remain the same. The 
programming of natural laws is not affected by the organization involved. 
And mathematical calculations are not a matter of opinion or preference 
(2 + 2 = 4 no matter who is involved, where the calculation is performed, 
or what we wish the result to be). Therefore once a statistical, scientific, or 
engineering program has been written, it can be copied and used by many 
organizations. 

This chapter discusses how to use programs that have been written else- 
where. A statistical program serves as an example of a "canned" program. 
The chapter also discusses some elements of style that make a program eas- 
ier to read and modify. 

Programs developed by one organization that are transferred as a whole to 
another organization are called "canned" or "packaged" programs. No 
modification of the program logic is involved, although some statements 
may have to be changed to fit your system. 

Once the program has been changed so that it will run on another sys- 
tem, it can be used by anybody with access to that system. A person pro- 
vides the problem context and the data, runs the appropriate program, and 
interprets the output. Problem specification, data collection, selection of an 
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appropriate program for solution, and interpretation of output are the key 
elements for the successful use of canned programs. But these elements are 
beyond the scope of this book. Here we shall focus on how to enter the data 

Linear regression is a statistical technique for determining the relation- 
ship between two variables. (Regression analysis is covered in statistical 
textbooks.) LINREG is a program that performs linear regression. A copy 
of this program is shown below: 



1 GOTO 630 

200 DATA 7E22, 5E22 

20 5 READ Ql 

210 DIM D(250 ,2) 

215 PRINT 

220 LET 1=0 

225 LET 1=1+1 

230 READ D(I r l), D(I,2) 

235 IF D(I,1) <> 7E22 THEN 225 

240 LET Q2 = 1-1 

245 LET S9 = 

250 IF Ql = 1 THEN 270 

255 IF Ql = 2 THEN 325 

260 IF 01 = 3 THEM 3 95 

265 GOTO 220 

270 LET S9 = 1 

275 GOSUB 490 

280 PRINT "LINEAR: Y=A+B*X WITH A=" ;Q8; ,f AND B=";Q9 

285 GOSUB 565 

290 FOR J = 1 TO Q2 

295 LET W7 = Q8 + Q9*D(J,1) 

300 LET Z7 = W7 - D(J r 2) 

305 LET Q4 = 100 *Z7/D ( J , 2 ) 

310 PRINT D(J,1), D(J,2), W7, Z7, Q4 

315 NEXT J 

320 GOTO 999 

325 FOR J = 1 TO Q2 

330 LET D(J,2) = L0G(D(J,2)) 

335 NEXT J 

340 GOSUB 490 

345 PRINT "EXPONENTIAL: Y = A*EXP(B*X) WITH A=" ; EXP< Q8 ) ; " AN 

350 GOSUB 565 

355 FOR J=l TO Q2 

360 LET W7 = EXP( Q6-t-Q9*D ( J , 1 ) ) 

365 LET W8 = EXP(D(J,2)) 

T7Q T.P.T 7.^ = l\!l~~WP. 

375 LET Q4 = 100*Z7/W8 

380 PRINT D(J,l) f W8, W7, Z7, Q4 

385 NEXT J 

390 GOTO 999 

395 FOR J = 1 TO Q2 
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400 
405 
410 

415 

420 

425 

430 

435 

440 

445 

450 

451 

455 

460 

465 

470 

475 

480 

485 

490 

495 

500 

505 

510 

515 

520 

525 

530 

535 

540 

545 

550 

555 

560 

565 

570 

575 

580 

585 

590 

595 

600 

605 

610 

615 

620 

625 

630 

635 

640 

645 

AT" 

650 



LET D( 

LET D( 

NEXT J 

GOSUB 

PRINT 

GOSUB 

FOR J 

LET W7 

LET W8 

LET W9 

LET Q4 

LET Z7 

IF Q4 

LET Q4 

GOTO 4 

LET Q4 

PRINT 

NEXT J 

GOTO 9 

LET Q3 

LET Q4 

LET Q5 

LET Q6 

LET Q7 

FOR J 

LET Q3 

LET Q4 

LET Q5 

LET Q6 

LET Q7 

NEXT J 

LET Q9 

LET Q8 

RETURN 

LET Q0 

PRINT 

IF S9 

PRINT 

GOTO 5 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

RETURN 

PRINT 

PRINT 

PRINT 

PRINT 



J , 1 ) = LOG ( D ( J , 1 ) ) 
J , 2 ) = LOG ( D ( J , 2 ) ) 



Y=A(X[B) WITH A="?EXP(Q8);" AND B="Q9 



490 

" POWER: 

565 

= 1 TO Q2 

= EXP(D(J,1) ) 

= EXP(D(J,2)) 

- EXP(Q8)*W7[Q9 
= W9/W8-1 
= WQ-W8 

< I HEN 470 
= INT(1000*Q4-h0.5)/10 

75 

= INT(1000*Q4-0.5)/10 
W7 f W8, W9, Z7, Q4 

99 

= 

- 
= 
= 
= 

= 1 TO Q2 
= Q3+D(J,1) 
= Q4+D(J,2) 
= Q5+D(J,1)*D(J,2) 
= Q6+(D(J,1) ) t2 
= Q7+(D(J,2)) [2 

= (Q2*Q5-Q3*Q4)/(Q2*Q6-Q3[2) 
= (Q4-Q3*Q9)/Q2 

= (Q2*Q5-Q3*Q4)/SQR((Q2*Q6-Q3[2)MQ2*Q7-Q4[2)> 

= THEN 5 90 

"COEFFICIENTS; "; 

95 

"INDICES: 

"CORREL = " ;Q0; M DETERH - " ; Q0 [ 2 

"COMPARISON OF ACTUAL TO ESTIMATED FROM EQUATION: " 
"X-ACTUAL" , "Y-ACTUAL" , "Y-ESTIM" , "DIFFER" , "PCT-DIFF" 



"THIS IS A LINEAR REGRESSION PROGRAM FOR DATA IN TWO" 
"VARIABLES, X AND Y. FROM INPUT POINTS, DESCRIBED BY" 
"THEIR X AND Y COORDINATES, AN EQUATION IS PRODUCED TH 

T 



PRINT "BEST FITS THESE POINTS IN THE LEAST-SQUARES SENSE, 
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O" 

655 PRINT 
660 PRINT 
665 PRINT 
670 PRINT 
AL," 

675 PRINT 
680 PRINT 
685 PRINT 

>," 

690 PRINT 

695 PRINT 

TA" 

700 PRINT 
ii 

/Ub PRINT 
710 PRINT 
9 99 STOP 
32767 END 



"USE THE PROGRAM, TYPE THE FOLLOWING:" 

DATA K n 

(WHERE K = 1 FOR LINEAR, 2 FOR EXPONENTI 

AND 3 FOR POWER FUNCTION TO BE FITTED.)" 

1 DATA X(1),Y(1),X(2),Y(2), ,X(N),Y(N)" 

(WHERE X(1),Y(1) IS THE FIRST POINT, X(2 

Y(2) IS THE SECOND, AND SO ON UNTIL ALL" 
POINTS HAVE BEEN ENTERED. ADDITIONAL DA 

STATEMENTS 3-199 MAY BE USED AS NEEDED.) 



"THEN TYPE f RUN ' ." 



You can use LINREG by calling it up (LOAD 4 UNREG' Centering your 
data, and typing RUN. But data entry for LINREG, as well as many similar 
programs, is different from how it was handled in earlier parts of this book. 
Data is entered with DATA statements that are part of the program. 

LINREG provides instructions for entering data: 

THIS ES A LINEAR REGRESSION PROGRAM FOR DATA IN TWO 
VARIABLES, X AND Y. FROM INPUT POINTS, DESCRIBED BY 
THEIR X AND Y COORDINATES, AN EQUATION IS PRODUCED THAT 

BEST FITS THESE POINTS IN THE LEAST-SQUARES SENSE. TO 
USE THE PROGRAM, TYPE THE FOLLOWING: 

1 DATA K 

(WHERE K = 1 FOR LINEAR, 2 FOR EXPONENTIAL, 
AND 3 FOR POWER FUNCTION TO BE FITTED.) 

2 DATA X(1),Y(1),X(2),Y(2), ,X(N},Y(N) 

(WHERE X(1),Y(1) IS THE FIRST POINT, X(2), 
Y(2) IS THE SECOND, AND SO ON UNTIL ALL 
POINTS HAVE BEEN ENTERED. ADDITIONAL DATA 
STATEMENTS 3-199 MAY BE USED AS NEEDED.) 

THEN TYPE 'RUN' . 



This RUN shows what has to be entered in DATA statements. A DATA 
statement is a non-executable BASIC instruction that holds data for a pro- 
gram. It starts with a line number, the word DATA and then the individual 
data values separated by commas. For example: 

1 DATA 3.7,4.2,3.9,2.5,6 



The DATA statement holds live values. They may be the values for five 
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fields of a record, or they may be five values for one field. Either way, DATA 
statements hold a stream of values that are used one after another. 

Data values in DATA statements are assigned to fields by READ state- 
ments. Look at LINREG, line 205 and line 230. Both contain the BASIC 
instruction READ. Line 205, READ Ql, being the first READ, assigns the 
first value found in any DATA statements to Ql. Line 230, READ 
D(I,1),D(I,2), assigns the next data value to D(I,1) and the following value 
to D(I,2). 

Once an item of data has been assigned, the next READ uses the item of 
data that follows. Every READ "uses up" data values. Although data can be 
distributed over many DATA statements, they must follow the order of the 
READ statements. The READ statements follow the stream of data, using 
up data values in sequence. 

Now we can run LINREG. First, call up the program. Then enter the 
data as specified by the instructions: 

1 DATA 1 

2 DATA 719, 3756 

3 DATA 1384,5100 

4 DATA 995,4950 

5 DATA 231,894 

6 DATA 462,480 

7 DATA 486,1908 

8 DATA 1299,5388 

9 DATA 233,240 

10 DATA 189,468 

11 DATA 759,1662 

12 DATA 112,96 

13 DATA 1252,5334 

14 DATA 677 ,786 

15 DATA 295,648 



Then type the word "RUN", and it generates the output. 



LINEAR: Y=A+B*X WITH A=-662.491 AND B= 4.5073 

COEFFICIENTS; CORREL = .927248 DETERM = .859788 

COMPARISON OF ACTUAL /OS ESTIMATED FROM EQUATION: 

X-ACTUAL '/-ACTUAL /-ESTIM DIFFER PCT-DIFF 

719 3756 2578.26 -1177.74 -31.3563 

1384 5100 5575.61 475.612 9.32572 

995 4950 3822.27 -1127.73 -22.7824 

231 894 37 8.695 -515.30 5 -57.640 4 

46 2 480 1419.88 93 9.881 195.80 9 

486 1908 1528.06 -379.943 -19.9132 
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1299 5388 5192.49 -195.509 -3,6286 

233 240 387.71 147.71 61.545 

189 468 189.388 -278.612 -59.532 

7co Ufi? ?7<Sft.SS 1096.55 65.977 

112 96 -157.674 -253.674 -264.24 

1252 5334 4980.65 -353.352 -6.6245 

677 786 2388.95 1602.95 203.93 

295 648 667.162 19.1621 2.9571 



The interpretation of this output and its use in decision making will de- 
termine the value of LINREG. But that aspect is peripheral to our focus. 
Notice how easy it is to use the program: Enter the data, type run, and the 

nrnaram nan cr &in &r a t & r**amc iir\nn rpflmc r\f r\uir\ut 

Other statistical programs are just as easy to use. Just enter the data and 
the program does the rest. It is not necessary to know anything about statis- 
tics or about computer programming to use these programs for analysis. 
Therein lies the power, as well as the danger, of using computers. Anybody, 
whether knowledgeable in the technique used or not, has the technique 
available if he can enter data and type RUN. But knowledge of the problem 
context, of the validity of the data, and of the technique of analysis is re- 
quired to derive the proper conclusions from such use of canned programs. 

Another example of a canned program is the file sort in Appendix B. 
Again, the detailed instructions of the program are unimportant. What is 
important is knowing how to use it properly to do the desired job. 

Similar to canned programs, but at a much lower level, are functions. 
Functions perform one specific task in a program. For example, the INT 
function used in Chapter 6, gives the integer portion of a number. Functions 
are usually indicated by a three-letter keyword. Table 10-1 lists the mathe- 
matical functions available in BASIC. 

STRUCTURED Structured programming is a systematic way of designing a program. It is a 
PROGRAMMING philosophy of design to make a program readable and easy to change. 

Structured programming breaks a program into a number of pieces, 
called modules. Each module performs one task. Since the modules are 
smaller than the whole program, each piece is easier to understand, easier to 
code, and easier to change. But breaking a program into modules requires 
planning. Structured programming emphasizes planning of what a program 
does and how its modules are related. All modules should be clearly sped- 



U^u uoiuiv- \*>\j\,j.i.i.xe. 



the various modules identified. Obviously this planning is not cheap and re- 

U liii Co Otii CI Lll wvn viiiict LiV^ii LfvlVi'Cvii fJ 1 \J£a ill a ill is* a u. 

Structured programming recognizes three types of sequences of instruc- 
tions-simple sequence, selection, and looping. Any program can be com- 
posed using one or a combination of these elementary types. For example: 
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Mathematical Functions 



Table 10-1 



Function* Explanation 

Y = ABS(X) Assigns to Y the absolute value of X. 

Y = ATN(X) Assigns to Y the arc tangent of X; X is ex- 

pressed in radians. 

Y = COS(X) Assigns to Y the cosine of X; X is in radians. 

Y = EXP(X) Assigns to Y the value of e raised to the X 

power; where e is 2.71828. 

Y = INT(X) Assigns to Y the greatest integer in X which is 

less than or equal to X. 

Y ~ LOG(X) Assigns to Y the natural logarithm of X. 

Y = RND(X) Assigns to Y a random number uniformly dis- 

tributed between and 1. 

Y = SGN(X) Assigns to Y the value 1 preceded by the sign of X. 

Y = SIN(X) Assigns to Y the sine of X; X is in radians. 

Y = SQR(X) Assigns to Y the square root of X. 

Y = TAN(X) Assigns to Y the tangent of X; X is in radians. 



* Y stands for the name of any field; and X can be a field or a formula, but must be 
enclosed in parentheses. 



Simple sequence 



Selection 

Alternative 1 
(false) 

Alternative 2 
(true) 



100 LET R = 3.00 
110 LET H = 40 
120 LET P = R*H 
130 PRINT P 

100 IF T - 2 THEN 300 

200 Q2 = Q2 + Ql 
210 GO TO 400 



300 Q2 - Q2 
400 ... . 



Ql 



Loop 



100 FOR Rl = 1 TO 8 
200 NEXT Rl 



244 / Use and Design of Complex Programs 



A simple sequence has no GOTO. Each statement follows the preceding 
statement until the sequence is finished. 

A selection consists of an IF-THEN and its two possible groups of in- 
structions. One of these two possible groups is selected when the IF-THEN 
is true. The other is selected when the IF-THEN is false. 

A loop repeats a group of instructions until a specified condition has 
been met. 

Of course the alternatives of a selection or the group of instructions in a 
loop may contain subsidiary selections or loops. Ideally each type of module 
should have one entry and one exit with no backtracking. The flow of a pro- 
gram should be top to bottom (except for loops.) GOTO's that jump back 
to previously executed code should be eliminated. 

Tn c!arif v the rel?.tionshi n be^wee 1 " 1 *^e e^ rn e r, * c ^ a ^f^o^^m ctrn^. 
tured programming uses indentations and additional comments (REM state- 
ments) to highlight the structure of a program. Indentation shows which 
elements fit together. Comments aid in understanding both the logic (what 
the program does) and the structure (how the program is organized.) 

Let's look at some examples to clarify these ideas. First, look at the 
SORT program in Chapter 8. It performs three major tasks that can be 
diagrammed as follows in Figure 10-1. 



( Start 


) 


i 


r 


Assign Data 
to Lists 


I 


Sort Lists 


, 1 


/ 

/ Printout 
/ Sorted Lists 


/ 

/ 






r 

{ Terminate 
v . 


) 



Figure 10-1 



SORT Program 
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This program can be rewritten to make the structure stand out. A rewritten 

version follows: 



100 


REM 


110 


REM 


120 


REM 


130 


REM 


140 


REM 


150 


REM 


160 


REM 


170 


REM 


180 


REM 


190 


REM 


200 


REM 


210 


REM 


220 


REM 


230 


REM 


240 


REM 


250 


REM 


260 


REM 


270 


REM 


280 


REM 


290 


REM 


300 


REM 


310 


REM 


320 


REM 


330 


REM 


340 


REM 


350 


REM 


3 60 


REM 


37 


REM 


380 


REM 


390 


REM 


400 


REM 


410 




420 


REM 


430 


REM 


440 


REM 


450 




460 


REM 


470 




480 




490 




500 





******************************************************** 

* PROGRAM NAME: LIST SORT * 

* * 

* THIS PROGRAM — * 

* 1. GETS DATA FROM A TERMINAL AND STORES THEM IN * 

* LISTS * 

* 2. SORTS THE LISTS IN DESCENDING ORDER OF NET PAY * 

* 3- PRINTS THE SORTED LISTS * 

* * 

* PROGRAMMER NAME: A. N. LYST * 

* DATE: 1 APRIL 1979 * 

* * 

* FIELD NAMES: * 

* F EXCHANGE FLAG — SET TO 1 WHEN AN * 

* EXCHANGE HAS OCCURRED; OTHERWISE * 

* K INDEX OF FOR-NEXT LOOP * 

* L POINTER TO A LOCATION IN A LIST DURING * 

* DATA ENTRY; THE NUMBER OF ITEMS IN A LIST" * 

* AFTER DATA ENTRY * 

* M$ EMPLOYEE NAME ENTERED FROM TERMINAL * 

* N() LIST TO HOLD EMPLOYEE NUMBER * 

* Nl EMPLOYEE NUMBER ENTERED FROM TERMINAL * 

* N$()...LIST TO HOLD EMPLOYEE NAME * 

* PC) LIST TO HOLD EMPLOYEE NET PAY * 

* Pi EMPLOYEE NET PAY ENTERED FROM TERMINAL * 

* T TEMPORARY STORAGE OF A NUMERIC VALUE * 

* DURING AN EXCHANGE * 

* T$ TEMPORARY STORAGE OF EMPLOYEE NAME * 

* DURING AN EXCHANGE * 
******************************************************** 

DIM N<100), N$(100), P(100) 

GET DATA FROM TERMINAL AND PUT THEM INTO THE LISTS 

L = 

*** BEGIN DATA ENTRY LOOP 
PRINT "TYPE EMPLOYEE NUMBER, EMPLOYEE NAME," 
PRINT "AND NET PAY — SEPARATED BY COMMAS." 
PRINT "WHEN FINISHED — TYPE 99,AA f 99" 
INPUT N1,M$,P1 



246 / Use and Design of Complex Programs 



510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 

6 30 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 

7 50 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 

V U '0 £ 

97 

980 

990 

1000 

1010 

10 20 



REM > E xiT FROM LOOP WHEN DATA ENTRY FINISHED 

IF Nl = 99 THEN 640 
REM ASSIGN DATA TO ARRAYS 
L = L + 1 
N(L) = Nl 
N$(L) = M$ 
P(L) = PI 
REM *** END IF 520 

GOTO 470 
REM *** END DATA ENTRY LOOP 
REM 

REM SORT THE LISTS INTO DECENDING NET PAY ORDER 
REM 

U = L - 1 

REM *** BEGIN SORT LOOP 
F = 

FOR K = 1 TO U 
REM 

REM COMPARE TWO ADJACENT VALUES OF NET PAY 
REM IF THEY ARE NOT IN ORDER, EXCHANGE THEM 
REM 

IF P(K) >= PCK + 1) THEN 900 

REM 

REM NET PAY VALUES OUT OF SEQUENCE, HENCE EXCHANGE 
REM 

T = P(K) 

P(K) = P(K+1) 

P(K+1) = T 

T = N(K) 

N(K) = N(K+1) 

N(K+1) = T 

T$ = N$(K) 

N$(K) = N$(K+1) 

N$(K+1) = T$ 



REM 
REM 
REM 



SET EXCHANGE FLAG (F) TO 1 



REM 



F = 1 
*** ENDIF 720 
NEXT K 

REM > EXIT FROM SORT LOOP WHEN F 

IF F = 1 
R EM * * * END SORT LOOP 
REM 
REM PRINT HEADINGS AND SORTED LISTS 



REM 



THEN 660 



PRINT "EMPLOYEE", "EMPLOYEE", 


"WEEKLY 


PRINT " NUMBER " , " 


NAME " . 


11 PAY 


DDTMT "- " " 


ii 


ii 


r JK± LN 1 ~" , 


r 




*** BEGIN PRINT LOOP 






FOR K = 1 TO L 






PRINT N(K ) . N$(K) 


, P(K) 
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1030 

1040 REM 
10 50 END 



NEXT K 
*** END 



PRINT LOOP 



As another example, compare the inventory update in Chapter 7 
with the structured version of the same program shown below. 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 

2 30 
240 
250 
260 
270 
280 
290 
300 
310 
320 

3 30 
340 
350 
360 
370 
380 
390 
400 
450 
460 
470 
480 
490 
500 
510 
520 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



****************************************************** 



PROGRAM NAME: INVENTORY UPDATE 

THIS PROGRAM — 

1. UPDATES THE OLD INVENTORY MASTERFILE: 

READS INVENTORY TRANSACTION RECORDS 
READS OLD INVENTORY MASTER RECORDS 
UPDATES MASTER RECORDS WITH TRANSACTIONS 
WRITES NEW (UPDATED) MASTER RECORDS 

2. PRINTS THE NEW (UPDATED) MASTERFILE 

3. PRINTS AN INVENTORY VALUATION REPORT 



GRAMMER 



PROGRAMMER NAME: P. 
DATE: 1 APRIL 1980 

FIELD NAMES: 

C UNIT COST OF PART INPUT FROM UPDATED MASTER 

C2...UNIT COST OF PART INPUT FROM OLD MASTERFILE 

D DOLLAR VALUE OF PART 

P PART NUMBER INPUT FROM UPDATED MASTERFILE 

Pi... PART NUMBER INPUT FROM TRANSACTION FILE 
P2...PART NUMBER INPUT FROM OLD MASTERFILE 

Q QUANTITY ON HAND INPUT FROM UPDATED MASTER 

Ql. . .QUANTITY OF TRANSACTION INPUT FROM 

TRANSACTION FILE 
Q2. . .QUANTITY ON HAND INPUT FROM OLD MASTERFILE 

T TOTAL DOLLAR VALUE OF INVENTORY 

Tl. . .TRANSACTION CODE INPUT FROM TRANSACTION FILE 

CODE VALUES: 1 = RECEIPT 
2 = ISSUE 



****************************************************** 



LINK TO FILES 



REM 
REM 



OPEN "I" ,1, "INVTR" 

OPEN "I", 2 / "INVMR u 

OPEN "O", 3 r "INVSN" 

READ A TRANSACTION RECORD 
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530 
540 
550 
560 

c n n 

580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
775 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 

Q"7 A 

980 

990 

1000 

1010 

1020 



REM 

INPUT #1, PI, Tl, Ql 
REM 

REM READ A MASTER RECORD 

INPUT #2, P2, 02, C2 
REM *** BEGIN UPDATE LOOP 
REM 

REM IF TRANSACTION EQUALS MASTER 
REM 

IF PI = P2 



REM 
REM 



REM 



REM 



THEN UPDATE MASTER 

IF TRANSACTION IS A RECEIPT 

IF Tl = 1 



THEN 670 
GOTO 820 



THEN 700 



THEN ADD TRANSACTION QUANTITY TO QUANT ON HAND 
Q2 = Q2 + Ql 

GOTO 77 5 
ELSE SUBTRACT QUANTITY FROM QUANTITY ON HAND 
Q2 = Q2 - Ql 
*** END IF 670 



READ A TRANSACTION RECORD 



REM 
REM 
REM 
REM 

IF EOF(l) THEN 1110 

INPUT #1, PI, Tl, Ql 
RE M >EXIT WHEN OUT OF TRANSACTION RECORDS 



REM 



REM 

REM 
REM 
REM 



ELSE IF TRANSACTION GREATER THAN MASTER 
IF PI > P2 

THEN WRITE UPDATED MASTER 
PRINT #3, P2;Q2;C2 

READ A MASTER RECORD 



GOTO 6 30 

THEN 850 
GOTO 960 



INPUT #2, P2, Q2, C2 
REM > exit WHEN OUT OF MASTER RECORDS 



GOTO 6 30 



REM 
REM 
REM 
REM 

O CM 

REM 
REM 

REM 
REM 



ELSE TRANSACTION LESS THAN MASTER 

WRITE ERROR MESSAGE -- NO MASTER IN FILE 

PRINT"***TRANSACTION WITHOUT MASTER*** "; Pi ; Tl ; Ql 

READ A TRAMS ACT I ON RECORD 

INPUT #1, PI, Tl, Ql 
*** END IF 8 20 
> EXIT WHEN OUT OF TRANSACTION RECORDS 
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1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1111 

1115 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1295 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 



REM *** END UPDATE LOOP 
REM 

REM TRANSFER REMAINING RECORDS FROM OLD TO NEW MASTER 
REM 

REM *** BEGIN TRANSFER LOOP 
IF EOF(2) THEN 117 
INPUT #2, P2,Q2,C2 
PRINT #3, P2,Q2,C2 
GOTO 10 90 

REM > EXIT WHEN OUT OF MASTER RECORDS 

GOTO 10 90 
REM *** END TRANSFER LOOP 
REM 

REM PRINT THE UPDATED MASTERFILE 
REM 

CLOSE #1, #2, #3 
OPEN "I", 1, "INVSN" 
REM 

REM HEADINGS FOR UPDATED FILE 
REM 

PRINT 

PRINT " NEW INVENTORY MASTER FILE" 

PRINT " " 

PRINT 

PRINT "PART UNITS COST" 

PRINT "NUMBER ON HAND" 

PRINT " " 

REM *** BEGIN PRINT LOOP 

IF EOF(l) THEN 1380 

INPUT #1, P, Q, C 

PRINT USING"### #### #.##";P,G,C 

REM > E xiT WHEN OUT OF NEW MASTER RECORDS 

GOTO 1295 
REM *** END PRINT LOOP 
REM 

REM PRINT INVENTORY VALUATION REPORT 
REM 

CLOSE #1 

OPEN "I" ,1," INVSN" 
REM 

REM HEADINGS FOR VALUATION REPORT 
REM 

PRINT 
PRINT 
PRINT " INVENTORY VALUATION REPORT" 

PRINT " " 

PRINT 

PRINT " PART ", "DOLLAR" 
PRINT "NUMBER", "AMOUNT" 
PRINT " ", " " 
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1510 REM 

1520 T = 

1530 REM *** BEGIN INVENTORY VALUATION LOOP 

1535 I? EOF(l) THEN 1640 

1540 INPUT #1, P, Q, C 

15 50 D = Q * C 

15 60 x = T + D 

1570 PRINT USING"### #,###. ## n ;P,D 

1580 REM > EXIT WHEN OUT OF DATA 

^fnn r,™ 4.** G0T0 !535 

1600 REM *** END INVENTORY VALUATION LOOP 

1610 REM 

16 20 REM PRINT TOTAL VALUATION 
1630 REM 

16 40 PRINT" « 



lbSU PRINT USING"% % ##,###.##"; "TOTAL", T 

1660 CLOSE #1 

1800 STOP 

32767 END 



Now make your evaluations. Which of the two versions of a program 
did you find easier to understand? In your opinion, which was easier to 
write? Since REM statements make a program larger and take time to write 
and enter (they only exist for the benefit of the reader-the computer ignores 
them), consider the following: Is the cost in time, effort, and added storage 
requirements less than, equal to, or greater than the benefit of readability? 
Only you can make that decision for yourself and your organization. 

SUMMARY BASIC Instructions Introduced: 

Instruction Explanation 

READ XXZ Assigns values to fields from DATA state- 

ments (X,YZ are arbitrary field names) 

DATA 5,2,7 Used to hold data for fields in READ state- 

ments 
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At the end of this chapter you should be able to: 

• Recognize the differences between batch, on-line, and real-time 

• Understand the problems of a first-time user 

• Understand trends in software and hardware for small business com- 
puter systems 

In this concluding chapter, the payroll program that has been the main ex- 
ample throughout the book will be discussed and put in perspective with re- 
gard to other programs that are commonly found in business. The concepts 
of batch versus real-time programs will be discussed, as well as first-time 
user organizations. As a conclusion, we present an article that focuses, from 
the management perspective, on the first-time user and Ins dilemmas regard- 
ing computers. 

One of the vehicles for teaching programming in each chapter has been the 
payroll program. It has grown from a very elementary program to a program 
that has most of the elements found in an actual payroll program that a bus- 
iness might use. In its present form it is still missing some major elements. 
For example, it will not write paychecks, nor keep track of some data needed 
for quarterly tax payments by the employer. The intent of the authors in us- 
ing payroll as the major example throughout was simple- to pick an applica- 
tion that everyone either is, or can become, familiar with. 

All of the programs that appear in this book, with the exception of Chapter 
9, are for batch processing. In its simplest terms, batch processing means 
that transactions are allowed to accumulate before they are used to update 
master records. Batch processing implies a time cycle-how often the master 
file is updated. Transactions will accumulate until the update. Batch process- 
ing also implies the use of sequential files. 

On-line processing is something you have been doing throughout this 
book. When you type a program at a terminal, you are on-line. The com- 
puter accepts or makes comments each time you enter a command or a line 
of a program. This interaction between a computer and user is referred to as 
on-line. Other examples of on-line processing are all of the programs that 
require data entry. The data is entered by you or a data entry operator in an 
on-line mode. 

Files may be considered on-line or off-line. When a file is not being 
used, it can be stored outside the computer system. When files in computer 
readable form are removed from the system, they are off-line. They are 
brought on-line when they need to be used. 

The final type of processing is real-time. In real-time, as soon as any 
transaction occurs, it is entered into the computer system, and the transac- 
tion updates the appropriate master record. In Chapter 9, the inventory ex- 
ample illustrated real-time processing. It is necessary to have real-time 
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processing when there is a limited supply or a need for up-to-the-second in- 
formation. Airline reservation systems were among the first and largest real- 
time applications. 



ROUTINE 

BUSINESS 

APPLICATIONS 



Payroll was one of the first manual systems to be computerized. After pay- 
roil, most accounting systems were computerized. These include invoicing, 
accounts receivable, accounts payable, general ledger, and financial state- 
ments. After the accounting area was computerized, the other functional 
areas of business proceeded with applications. Marketing, production, in- 
ventory, distribution, and finance are areas that have large numbers of com- 
puter applications. The accounting area was computerized first because it 
was the easiest. The rules by which bookkeeping is performed are explicit 
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computerization. 

In simple terms, you have performed two distinct functions in produc- 
ing the programs in this book. The two functions are: systems analysis and 
programming. 

Systems analysis deals with defining a problem (application). Most of 
the systems analysis was done for you in denning the program requirements. 
However, you had to perform some of this function in designing and writing 
your programs. It is the systems analysis component that is the most difficult 
in converting from manual to computer systems. 

As indicated above, the systems analysis function for accounting appli- 
cations is simple compared to other areas in a business. As a result, the ac- 
counting area was the first highly affected by computers. This is why most of 
the programs in this book are accounting oriented. In contrast, the systems 
analysis function for a production/control system is very difficult. 

FIRST-TIME With the price of computers decreasing dramatically, more and more organi- 

USERS zations are using computers. Organizations that have never used computers 

are called first-time users. There are thousands of horror stories about com- 
puters and first-time users. This is not to say that organizations experienced 
with computers do not also have horror stories; but, first-time users are a 
special case. 

Most first-time users rely on different computer manufacturers' sales- 
men to provide them with the information they need to choose a computer. 
Usually, no one in the organization has had any experience with computers. 
A situation that can be considered analogous to this is as follows: Assume 
Iimi a cardiologist has recommended thai, a pacemaker be implanted m a pa- 
tient. The patient then calls the various manufacturers' representatives for 
presentations. The patient then selects a model. 

It is obvious in the previous analogy that the patient cannot make a ra- 
tional choice. The same is true of a first-time user selecting a computer based 
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on the sales presentations of manufacturers' representatives. The newspa- 
pers are full of reports of trials where users are suing manufacturers, or vice 
versa, because of basic misunderstandings regarding the computer hardware, 
software, or both. The best route for a first-time user is to hire someone with 
computer expertise-either as an employee or consultant. By not choosing 
either of these alternatives, the use of the computer in an organization might 
result in greater trauma than necessary. 



The price of computers has dropped dramatically. No longer are large sums 
required to get the benefits of computer power. Mini computer systems can 
be bought for as little as $25,000 or $10,000. Alternatively, you can rent a 
mini computer system for less than $1,000 per month. A TRS-80 Model III 
microcomputer complete with two disk drives and a letter quality printer 
can be purchased for under $5,000. The small price tag lets small organiza- 
tions, with three to 99 employees, obtain their first computer. And it lets 
large organizations distribute their data processing capabilities throughout 
the organization. Therefore, the number of computers in use by business 
firms is expected to increase considerably. 

But both cases (first-time use in small business and distributed process- 
ing in large organizations) represent the introduction of computers to people 
who before had little or no contact with computers. Therein lies a danger. 
Unless managers prepare themselves and their people now, they may not be 
ready to meet the challenge when it comes. 

Technical Background: Computers have been around for over 30 years. 
They've been commercially used since the mid-fifties. However, their cost, at 
that time, limited them to large-scale operations. This is no longer the case. 
With the advent of minicomputers in the '60s and microcomputers in the 
70s, the cost of computers has fallen. Now even small organizations can af- 
ford computers. 

Furthermore, the trend of smaller, cheaper, more powerful computers is 
expected to continue. New equipment is continually being developed and in- 
troduced to the market. The technological cauldron continues to bubble. 
New devices will continue to be developed. The cost of computers will drop 
even further. 

But the cost of computers is not the cost of computer systems. Similarly, 
the cost of computation is not the cost of problem solving. The computer is a 
small essential part of a computer system. And computation is a small part 
of problem solving. 

Computer systems are needed to help in solving problems. Computer 
systems consist of people, of hardware, and of software. Equipment is re- 
quired for the input, storage, manipulation, and output of data and instruc- 
tions. Software is required to specify how the equipment should do its work. 
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The hardware is the tool, the software is the logic for using the tool Both 
aspects, hardware and software, are discussed in the following two sections. 



Hardware: Managers are faced with a wide variety of choices when they 
consider hardware. The market is flooded with alternatives. For example, 
the March 1981 Datapro Report listed 91 suppliers and 355 different small 
business systems. Extensive and conprehensive listings are available in 
A uerbach Reports and Datapro Reports. 

The equipment itself presents a wide spectrum of alternatives. From 
the $600 TRS-80 from Radio Shack to the $105,000 HP 3000, a whole range 
of price/performance options are available. Which options to choose 
depends on the needs of an organization. 

The low end of the cost spectrum, such as the $600 computer from Ra- 
dio Shack, offers systems which are too small for most businesses. They have 
a CRT (cathode ray tube, a TV screen), a keyboard for entering commands, 
and a cassette tape recorder to store data and instructions. But these facili- 
ties are not enough. Business systems need more main storage, more auxil- 
iary storage, and most important, hardcopy output. 

Main storage for microcomputers ranges from 16KB-64KB 
(KB = kilobyte, roughly one thousand characters — used as a measure of 
storage capacity for a computer system). Larger main storage capacity is ex- 
pected to be available in the near future. But useable operating systems 
facilities require from 20-25KB of main storage. And the application pro- 
grams will need additional space for efficient operations. Therefore, 32KB 
of main storage should be considered a minimum for a business system. 

Floppy disks provide economic auxiliary storage, Each regular floppy 
disk holds about 250,000 characters. But at least two (and possibly four) 
floppy disk drives will be needed to hold the data and instructions. Multiple 
disk drives are also necessary to provide back up for files and programs. 

A printing device is needed for the output of invoices, reports, etc. Al- 
though 15 cps (characters per second) printers are available, that equipment 
is too slow for most business applications* Typical requirements are better 
served by a line printer capable of printing at least 50 lines per minute. Oth- 
erwise the output from the system will be inordinately delayed. But even at 
50 lines per minute, the printer can be exasperatingly slow. 

Considering these additions and their associated programs, a minicom- 
puter useable by a small business will cost between $15,000 and $25,000. If a 



300 statements per niOiuh — then TRS-80 Model III for under $5,000 wiih a 
business software package for $700 will nrobablv suffice. 

The described configuration (32-64KB main storage, 500KB- 1000KB 
floppy disk auxiliary storage, keyboard-CRT, and 50 ipm printer) is toward 
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the low end of the spectrum for small computer systems. Depending on the 
needs of an organization, larger systems may be necessary. 

Software: Software is the set of programs that makes a computer work. 
Without software a computer system is merely a knick-knack that eats elec- 
tricity. A computer system needs two types of software-systems software 
and applications software. Systems software is the programs that operate the 
computer. Applications software uses systems software in the solution of 
business problems. 

Every computer vendor provides systems software to operate their 
machine. The software includes operating systems, assemblers, compilers, 
interpreters, and various utilities, such as sort/merge. In general, the systems 
software provided with a machine is adequate, although software support 
continues to be a problem area. 

However, application software is another story. Application software, 
unlike systems software, does not deal directly with the computer. It uses the 
computer (and its systems software) for business data processing and for 
generating management reports. Application software requires an under- 
standing of business problems, not of computers. Hence, computer vendors 
have been able to provide systems software that does the required job; but 
there is a dearth of applications software. 

To be sure, most of the standard accounting applications are generally 
available. Such applications include programs for general ledger, payroll, 
accounts receivable (both open item and balance forward), accounts pay- 
able, and fixed asset accounting. But other application areas are less well 
developed. Order entry, sales analysis, sales forecasting, inventories, mate- 
rials requirements planning, and master production scheduling are cur- 
rently available only for some computer systems. But independent program 
development is filling the void. Within the next two to three years, adequate 
application software should become widely available. 

In the meantime, an organization will have to satisfy its needs for appli- 
cation software in other ways. The organization can develop its own special- 
ized applications or contract for them. In either case, higher level 
programming languages speed the development of business applications. 
Currently, two languages, BASIC and FORTRAN, are generally available 
on small business computers. 

BASIC is the most widely supported higher level programming lan- 
guage. BASIC (Beginners All-Purpose Symbolic Instruction Code) has the 
advantage of being easy to learn and use. It is interactive: This means that 
instructions can be entered and changed instantly. The immediate response 
of interactive systems eases the program development process. BASIC is in- 
terpretive: Each instruction is immediately changed into machine code. In- 
terpreters typically require less main storage than compilers; therefore, less 
hardware is needed. 
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The other major, higher-level language that is extensively supported is 
FORTRAN. FORTRAN (FORmula TRANslator) requires a compiler and 

hence more main storage than a BASIC interpreter It is excellent for ana- 
lytic applications ^engineering, scicntiuc aiiu management science 
problems). 

COBOL (COmmon Business Oriented Language) and RPG (Report 
Program Generator) compilers are available on some systems. Support of 
other languages, such as PASCAL, APL, ALGOL, etc., is sporadic. There- 
tore, only BASIC and FORTRAN can be considered for generalized appli- 
cation development 

Success of a small computer system is not determined by the choice of 
hardware and software alone. Success takes a plan and people to unlock the 
power inherent in small computer systems„ 

Plan for The low price of computer systems tempts many managers. They have heard 

Computers about the speed and accuracy of computers. They have heard about the pro- 

digious storage capacity of computers. And they have heard about the al- 
most miraculous way of providing information. 

At the same time, managers have heard about bad experiences with 
computers. These horror stones deal with the inflexibility of computerized 
systems. They tell of problems in understanding computer professionals. 
And they tell of wasted effort, money, and manpower. 

But the truth in either case, the glowing success story and the abysmal 
horror story, does not lie with the equipment. The computer is merely a tool 
It can support either success or failure. Which will result depends on how it 
is used and what it is used for. 

Management control of computer use determines whether or not a com- 
puter system supports organizational objectives. Hence, managers must 
know what the organizational objectives are before they can set the objec- 
tives for computer use. Then actual usage can be compared to the stated 
objectives to see if the system is effective. 

Setting objectives for the use of computers is an important step. It 
should be done before an organization gets a system, But that requires iden- 
tifying not only where the organization wants to go, but also where the or- 
ganization is at present. Analysis of current operations identifies the areas 
where computers can be used to greatest benefit,. 

in Lii^ aiiaijoio, lwu ivp^o ui vJuv^Suuiid nt-tu lO ut- aaivui. 

1. What are the data processing needs of the organization? 



While the computer system can be designed to perform data processing effi- 
ciently and while it can answer management's cry for information, the abil- 
ity of the computer system to respond to either need is only as good as the 
clarity and precision of the questions that it is asked. An ambiguous ques- 
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tion will result in an amorphous design that leaves everybody dissatisfied. 
And such dissatisfaction perpetuates the horror stories. 

Therefore, the organization must determine its data processing needs. 
Ask where computers can make a contribution to organizational operations. 
Are there problems in responding to customer questions? On-line inquiry 
systems should be able to speed up the answers. Are there problems with the 
accuracy of inventory records? Computers are noted for their accuracy. 
(Once a program has been debugged, all calculations will be consistent.) 
Have you inadvertently missed discount periods on vendor invoices? Set up 
a computerized tickling file so the system won't let you accidentally overlook 
a payment due date. Do you have too many stockouts? Delayed billings? 
Reports two to three weeks after the end of a period? Administrative people 
snowed by a blizzard of paper? Clerical people devoted solely to compiling 
reports for regulatory agencies? All of these problems, when carefully ad- 
dressed, can be solved with the use of computer systems. 

But these questions need to be addressed in detail. For each problem 
area detailed questions have to be asked, to provide the needed precision for 
computerized processing. What reports and documents have to be gener- 
ated? How often? And how many? What are the input data? What is their 
volume and frequency? How much data has to be stored? How many files, 
what size, frequency of access, etc. These questions focus on the details of 
analysis. But these details are needed to explore a prospective problem area. 
A thorough description of the problem ensures that your organization adds 
to the number of success stories, not to the horror stories. 

The use of computers is a business decision, The low price of computer 
systems makes computer power available to small organizations and to indi- 
vidual departments in large organizations. To obtain the full benefits of 
computerized speed, accuracy and memory, an organization needs to plan. 
The plan should consider where and how the computer can be put to use. 
And in order to plan, an organization must know what its needs are. There- 
fore, a foundation for the use of a computer system has to exist before the 
computer system can be used successfully. 

The introduction of a computer system into an organizational unit is a dra- Prepare your 
matic change. The computer system changes the nature of the work per- People 

formed by people. It changes the flow of work through an organizational 
unit. And therefore the relationships between people are changed. 

Even small changes in procedures can be traumatic for some people. But 
first-time computerization has more impact than a small change in proce- 
dures. Therefore, people have to be prepared through orientation and train- 
ing sessions for the new system. Don't limit the sessions to clerical people. 
Management also needs to know what it can and cannot expect from a new 
computer system. 

Once the requirements have been defined, once a plan for computer use 
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has been established, once a commitment for hardware and software acquisi- 
tion has been made, once a specific system has been chosen and purchased, 
then intensive preparation for the upcoming change can start. (Note that we 

ery of the computer system.) At this time the organization knows the details 
of the system to be delivered and how it will be used. Therefore, it can focus 
its training where it will do the most good. 

Small business computers are generally easy to operate and use. Hence, 
in most cases it will not be necessary to hire computer professionals. In 
larger organizations an adequate staff exists already to support the needs of 
management. In small organizations, managers will have to do some of the 
work themselves and contract outside the organization for the more techni- 
cal aspects. But in either case, the training and orientation sessions should 
prepare the people for interaction with computer systems professionals. 
Hence, some understanding of the terminology and capabilities of com- 
puters in general has to be provided by these sessions. 

The low cost of small computer systems has led to predictions of almost 
exponential growth in the number of organizations using them. Rather than 
being a matter of whether, it becomes a matter of when. When will your 
workplace have a computer system? Given this inevitability, then prepara- 
tion now will pay off in the future. Getting your people prepared now makes 
the path of transition to a new system smoother. 

Of course, with the passage of time, more and more people will already 
be familiar with computers. Business schools require introductory courses in 
data processing or information systems for their graduates. They learn the 
terminology of computers. They learn about the capabilities and limitations 
of hardware. And they learn how to program computers in BASIC. Since 
BASIC is so widely supported on small business computer systems, the stu- 
dents will be ready to make a contribution to any organization that is con- 
templating the use of a small business computer. 

CONCLUSION Low cost computer systems are a reality. But a manager should not be hyp- 
notized by the cost of hardware. To make a computer system successful 
takes more than computing equipment. Success takes software, tailored to 
the needs of a business. It takes people who are trained to operate the hard- 
ware and people who are trained to use it. But most of all, it takes manage- 
ment—managers who are committed to planning for computerization, man- 
agers who set objectives and control computer usage, and managers who are 
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SUMMARY OF BASIC COMMANDS AND INSTRUCTIONS 

Summary of BASIC Commands; 

CMD "D:0"(Model HI) Lists the names of programs and data 
SYSTEM "DIR"(Model II) files in the directory. 
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KILL 



LIST 



LOAD 



NEW 



RUN 



SAVE 



Eliminates a program or file from the 
diskette. 

Gives a printout (listing) of the pro- 
gram. 

Asks for a copy of a program from 
the diskette. 

Tells the system that the operator is 
about to type in a new program. 

Executes a program, i.e., commands 
a computer to do what the program 
instructions tell it to do. 

Puts a copy of the program onto the 
diskette under the current program 
name. 



Summary of BASIC Instructions: 



CLEAR n 
CLOSE #n 
DATA 5,2,7 

DIM Y(X),Z(Q,R) 



END 



Allows a large (n) number of alpha- 
betic fields to be stored in memory. 

Closes file n and stores it on the disk- 
ette. 

Used to hold data for fields in READ 
statements. 

Sets the lists Y (represented by a let- 
ter) to X positions; defines that Z 
(represented by a letter) has Q rows 
and R columns; individual elements 
of lists and tables are identified by 
their location: position number in a 
list; row number and column number 
in a table. 

Indicates the physical end of a pro- 
gram. 
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FOR Y = N TO M 

NEXT Y 

GOTO nnn 

IF x THEN nnn 

INPUT #n, fieldnames 

INPUT X,Y 

INPUT X$, Y$ 
INT(X) 
LET X = Y 
OPEN 

PRINT #n fieldname 
PRINT X,Y 
PRINT "XYZ" 



Sets up a loop; the FOR statement 
begins the loop; it sets Y to N <begin- 
ning value); the loop will continue 
until Y has a value greater tnan M 
(the upper bound); the NEXT state- 
ment loses the loop. 

Tells the system to go to line number 
nnn for the next instruction. 

If x is true then go to line nnn for the 
next instruction, otherwise (if x is 
false) go to the next line in sequence. 

Reads a record from file number n; 
the file is identified by its file number. 
Records are separated by their field- 
names. 

Takes numeric values for fields X and 
Y from the keyboard. 

Gets alphabetic values for fields X$ 

and YS from the keyboard. 

Makes the value X into an integer 
(whole number)* 

Places the value of Y into the mem- 
ory location X. 

Opens the file identified by the file- 
name and gives it an identification 
number. 

Writes a record on file n. 

Displays the values of X and Y. 

Displays the alphabetic information 

XYZ. 

Assigns values to fields from DATA 
Statements (X,Y,Z are arbitrary field 



REM 



STOP 



Prints rpm^rlf? frtr nroaron-im^r* io- 

nored by the computer. 
Tells the system to stop. 
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Summary of Direct Access Diskette Instructions 

OPEN "R",l, "filename" Opens a direct access file as file 

number 1. 

FIELD #1, nl ASfieldnamelS, Defines the fields for records of file 
n2 AS fieldname2$ number 1; nl, n2 are the maximum 

characters in fields 1 and 2; field- 
namel$, fieldname2$ are the field- 
names used in the diskette file and are 
alphanumeric. 

RSET Changes the numeric form of data in 

fieldname! = MKD$(fieldname) a field to alphanumeric. 

fieldname = CVD(fieldname$) Changes the alphanumeric form of 

data in a field to numeric. 



GET1.L 

PUT1,L 

A hthmeiic operations: 
X + Y 
X - Y 
X*Y 

X/Y 

X [ Y (Model III) 
X A Y (Model II) 



Reads record L of file number one 
from diskette. 

Writes record L to diskette on file 
number one. 



Add X to Y 
Subtract Y from X 
Multiply X by Y 
Divide X by Y 
Raise X to the Y power 



Comparison operators: 
X - Y 

X<Y 

X< - Y 

X>Y 

X> = Y 



Equal (if X equals Y, this comparison 

is true). 

Less than (if X is strictly less than Y, 
this comparison is true). 

Less than or equal to (if X is less than 
or equal to Y, this comparison is 
true). 

Greater than (if X is strictly greater 
than Y, this comparison is true). 

Greater than or equal to (if X is 
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:>Y 



greater than or equal to Y, this com- 
parison is true). 

Not equal to (if X is greater than or 
less than- that is, not equal to— Y, 
this expression is true). 
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SORTING 



Records may be sorted either alphabetically or numerically for many appli- 
cations. In order to use the sort program given in this appendix, it is impor- 
tant to understand something about, the program: 

1 . The file to be sorted is unchanged at the end of the sort. 

2. The sorted file, at the conclusion of the program, is called 
"SORTED/FIL". 

3. You must rename the "SORTED/FIL" with the RENAME command 
as soon as the sort is finished. It will automatically be saved. 

In the chapter on totals and subtotals, it is necessary to sort the "EMPLOY" 
file by department number; then it becomes the "EMPLDP" file. 

A listing of the sorting program and an example running the program 
follow: 



THIS IS A ROUTINE TO SORT THE EMPLOY FILE ON ANY 
FIELD OF YOUR CHOOSING. 

SUBMITTED BY THUNDERBIRD, ENT . OF MIAMI, FLA. 
PROGRAMMER - - SKIP BANKS 



10 ' 

20 ' 

30 ' 

40 ' 

50 ' 

60 CLEAR 2000 

70 ' 

80 ' READ INFORMATION FROM DISK FILE 

90 ' 

100 CLS 

110 INPUT "FILENAME. .. ";FI$ 

120 ' 

130 ' OPEN FILES 

140 * 

150 OPEN "I",1,FI$ 

160 OPEN "O" , 2 , "SORTED/FIL" 

170 * 

180 R=100 : K=6 

190 DIM L?(R,K) ,N(R) ,D(R) ,N$(R) ,H(R) ,R{R) ,V(R) ,NR(R) 

200 JS=10 

210 ! 

220 R=l 

2 30 IF EOF(l) THEN CLOSE #1 : GOTO 440 

240 INPUT #1, NCR) ,D(R) ,N$(R) ,H(R) f R(R) ,V(R) 

250 • 

260 ' CONVERT NUMBERS AND STRINGS TO 2 ELEMENT ARRAY 
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270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
7 30 
740 
750 
760 
770 
780 
790 
327 



L$(R,1)= 
L$(R,4)= 
NR(R)=R 



FOR 1=1 
PRINT 
NEXT I : 



R=R+1 



STR$(N(R)) : L$ ( R, 2 ) =STR$ ( D( R) ) : L$ ( R, 3 )-N$ ( R ) 
STR$(H(R)) :L$(R,5)=STR$(R(R) ) : L$ ( R r 6 )=STR$ ( V( R) ) 



PRINT OUT THE INCOMING FILE TO THE SCREEN 

TO 6 

TABC ( <I-l)*JS+4) )L$(R,I) ; 
; PRINT 

GET THE NEXT RECORD 

GOTO 230 

DONE LOADING - - READY TO SORT 



INPUT "SORT BY FIELD #..."; J 
t 

IF J=0 THEN GOTO 440 
II=R 

SORT ROUTINE STARTS HERE 

t 

NR(II+1) = NR(2) 

FOR 18=1 TO II-l 

12=18 

IF L$(NR(I8+2) ,J) >= L$(NR(I2),J) GOTO 590 

NRCI2+1) = NR( 12) 

12 = 12-1 

IF 12 > THEN GOTO 5 30 

NR(1) = NR( 18+2) 

GOTO 600 

NR( 12+1) = NR( 18+2) 

NEXT 18 



DONE SORTING 



NOW PRINT SORTED FILE 



J=l 

Jl = 10 

CLS 
i 

1 PRINT THE SORTED FILE ON THE SCREEN AND TO THE 

• NEW FILE 

FOR 12 = 1 TO 6 

PRINT TAB( ( (I2-1)*J1+4))L$(NR(J) ,12); 

PRINT #2,L$(NR(J) ,12) ;","; 
NEXT 12 

J=J + 1 
PRINT 

IF J<=II THEN GOTO 710 
CLOSE #2 
67 END 
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FILENAME. . .? EMPLOY 



101 


1 


ADAMS 


5 


40 





103 


12 


BAKER 


5.6 


40 


4 


104 


17 


BRAVE 


4 


40 


2 


108 


16 


COHEN 


6.25 


38 





172 


2 


JOHNSON 


3.75 


40 





198 


1 


TANNER 


4.25 


36 





202 


16 


WILSON 


4 


40 





206 


7 


LESTER 


5.25 


40 





255 


12 


SCHMIDT 


5.6 


40 


4 


281 


12 


MILLER 


6 


40 





313 


7 


SMITH 


4.25 


40 


4 


347 


12 


GRAY 


6 


38 





368 


1 


WEAVER 


3.5 


40 


2 


422 


1 


WILLIAMS 


4 


40 





SukT b* riEiiO 


# . . . ? 2 










101 


1 


ADAMS 


5 


40 





198 


1 


TANNER 


4.25 


36 





368 


1 


WEAVER 


3.5 


40 


2 


422 


1 


WILLIAMS 


4 


40 





17 2 


2 


JOHNSON 


3.75 


40 





206 


7 


LESTER 


5.25 


40 





313 


7 


SMITH 


4.25 


40 


4 


255 


12 


SCHMIDT 


5.6 


40 


4 


281 


12 


MILLER 


6 


40 





347 


12 


GRAY 


6 


38 





103 


12 


BAKER 


5.6 


40 


4 


108 


16 


COHEN 


6.25 


38 





202 


16 


WILSON 


4 


40 





104 


17 


BRAVE 


4 


40 


2 



l he file must now be renamed. 

For the Model III type: 

CMD"r\"RENAME SORTED/FIL TO EMPLDP" 
Then type BASIC and perform the usual sign-on. 

For the Model II type: 

NAME "SORTED/FIL" AS "EMPLDP" 



T'l-io nrAnrom 






1~ i-l. _ _ a... . . ». r „ 



FILENAME. 
101 
103 
104 



. ? EMPLOY 
1 

12 
17 



ADAMS 
BAKER 
BRAVE 



5 

5.6 

4 



40 
40 
40 
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108 16 

172 2 

198 1 

202 16 

206 7 

255 12 

281 12 

313 7 

347 12 

368 1 

422 1 
SORT BY FIELD #. . . 



COHEN 


6, 


,25 


JOHNSON 


3. 


.75 


TANNER 


4. 


,25 


WILSON 


4 




LESTER 


5. 


,25 


SCHMIDT 


5. 


,6 


MILLER 


6 




SMITH 


4, 


,25 


GRAY 


6 




WEAVER 


3. 


.5 


WILLIAMS 


4 





38 

40 
36 

40 
40 
40 
40 
40 
38 
40 
40 








4 

4 

2 




101 
103 
104 
108 
347 
172 
206 
281 
255 
313 
198 
368 
422 
202 



1 

12 

17 

16 

12 

2 

7 

12 

12 

7 

1 

1 

1 

16 



ADAMS 


5 




BAKER 


5. 


,6 


BRAVE 


4 




COHEN 


6, 


.25 


GRAY 


6 




JOHNSON 


3. 


,75 


LESTER 


5, 


,25 


MILLER 


6 




SCHMIDT 


5. 


.6 


SMITH 


4. 


.25 


TANNER 


4. 


.25 


WEAVER 


3. 


.5 


WILLIAMS 


4 




WILSON 


4 





40 
40 
40 
38 
38 
40 
40 
40 
40 
40 
36 
40 
40 
40 




4 
2 





4 
4 

2 





SELECTED ERROR MESSAGES 

The following is an abbreviated list of error numbers and an interpretation 
of their meaning: 
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CODE ABBRE VIA TION 

1 NF 



2 SN 



6 OV 



EXPLANATION 

NEXT without FOR. A FOR-NEXT 
loop is missing either a FOR or a 

NEXT. 

Syntax. You misspelled a basic in- 
struction or left out a parenthesis or 
arithmetic character. 
Overflow. The number in your pro- 
gram is too big or too small to be cor- 
rect. Check the arithmetic! 
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7 OM 



8 UL 



9 BS 



11 



13 



14 



15 



/0 



TM 



OS 



LS 



Out of memory. The DIM statement 
is too big or you have too many in 

your program. 

Undefined line. A GOTO or THEN 
refers to a line number that does not 
appear in the program. 

Bad subscript. A reference is made to 
an element of a list or of a table that 
is beyond the size of the table speci- 
fied in the DIM. 

Division by zero. The program 
attempted to divide by zero. Check 
the arithmetic. 

Type mismatch. You have defined a 
number as an alphabetic or alphanu- 
meric field or vice versa. 

Out of string space. You have more 
than 100 alphabetic characters in 
memory at one time. Use the CLEAR 
instructions. 

Long string. You have defined an 
alphabetic or alphanumeric field that 
has more than 255 characters in it. 
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HOW TO 



Problem 

Stop a printout on the keyboard 
or printer 

Stop execution of a program if 

nothing seems to be happening 

Delete programs from the 
directory 

Delete data files from the 
directory 

Delete lines from a program 



List a data file 



Solution 
Depress the BREAK key 

Depress the BREAK key 

KILL "PROGRAMNAME" 

KILL "FILENAME" 

DELETE 180-2/0: l his wiil cause 
lines 180-270 of the oropram in vour 
work space to be deleted 
DELETE 120: Line 120 will be de- 
leted. 

Write a program that lists and prints 
it. 
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INITIALIZATION OF DISKEHES APPENDIX E 

Any new diskette must be initialized before you can enter, run, or save pro- 
grams on it. In order to initialize a diskette, you must perform the following 
steps: 

1 . Locate the MASTER diskette that is supplied with your TRS-80. Place 
it in disk drive (zero). Place your new diskette in disk drive 1, and 
sign-on (see Chapter 1). 

2. When the message TRSDOS Ready appears, type BACKUP and press 
"ENTER". 

3 . The TRS-80 responds with: 

SOURCE Drive Number ? 
Type (zero) and press "ENTER", 

4. The TRS-80 responds with: 

DESTINATION Drive Number ? 
Type 1 and press "ENTER". 

5 . The TRS-80 responds with: 

SOURCE Disk Master Password? 
Type PASSWORD and press "ENTER". 

6. The TRS-80 responds with: 

Source Drive Destination Drive 1 
Do you wish to RE-FORMAT the diskette? 
Type YES and press "ENTER". 

7. A series of messages appears and you have completed a successful 
initialization when the messages 

**Backup Complete** 
TRSDOS Ready 
appear. 

8. Remove both diskettes. 

Note: If at any point you want to start over, press the orange key (Model 
III) or the "BREAK" key (Model II). 
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Accumulation 99, 103 

— initializing, 101 
-subtotals, 109 
-totals, 101 

Alphabetic information, 23, 28, 37, 

43 
Arithmetic 

— field names, 15, 37 

— operations, 16, 37, 43 
Assignment statement, 15, 37, 90, 

101 



BASIC, 4, 257 

— commands, 18, 36 

— instructions, 18, 37 
Batch, 253 

Business applications, 4, 254 



Calculations 

— arithmetic, 13, 37 
-subtotals, 109 
-totals, 99 

Canned programs, 237 
Cathode Ray Tube (CRT), 6 
CLOSE file, 72, 94 
Columns for PRINT, 29 
Comma 

— in input, 43 

— in output, 28, 37 
Comparison operators, 59, 63 
Computer, 3, 255 

CVD, 222, 223 



DATA, 240, 241,250 
Data entry, 41, 55 
DIM, 190,212 
Directory, 24, 36, 62 
Diskette, 7, 8, 17,62,72,221 
Dollar sign ($), 43 



ENTER key, 7,8,9, 271 

Errors 

-design, 55 

— logical, 17, 55 

— specification, 55 

— syntax, 17, 55 

— typographic, 17, 55 



Federal income tax (FIT), 6, 41, 196 
Federal insurance contribution act 

(FICA), 6, 41, 196,200 
Field, 6 
-instruction, 230, 233 

— name (alphabetic), 43 

— name (numeric), 15, 35 
File 

-creation, 72, 217 

— name, 72,94 
-reading, 78,94, 221 

— setup, 69 
-sorting, 110,266 
-writing, 72,94, 221 
File organization 

— direct access, 217 
-sequential, 69, 82, 147, 155, 217 
File processing 

-adding, 129, 134, 155 

— copying, 93 

— correcting, 87 
-deleting, 147, 155 

— searching, 82 
-updating, 159,226 
File type 

— master, 6, 159 

— transaction, 159, 226 
Flowcharting, 13 
FOR-NEXT, 190,212 
Function, 116, 242 



GET, 222, 233 
GOTO, 50, 59, 63 



END, 16,37 

End of data, 50,73, 138 
End of file, 79, 94, 138 
ENIAC, 3 



Hardware, 255 

Hierarchy of arithmetic operations, 
43 
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Transaction -direct file, 226 

-code, 176,227 

-file, 159 

— record, 159 ,,.,... 

Verification, :o 

Update 

-sequential file, 159 Write file, 72, 94, 155, 221, 233 



• 



Alan J. Parker 



Excellent introduction to BASIC business applications for the TRS- 
80 Model II and Model III. Structured to help students solve prob- 
lems, this book focuses on disc files as the core of all business 
data processing. This book contains comprehensive coverage of 
payroll, inventory, customer statements, salesmen's commis- 
sions, and other business-related processing. It requires no prior 
experience with computers, no math expertise, and no previous 
knowledge of BASIC to perform the functions described. Using a 
step-by-step method of presenting the information, even the most 
inexperienced computer user can master basic business skills 
using the TRS-80 by using this book! 

■ 

The Table of Contents includes: 

■ 

• Introduction 

• Performing Simple Calculations 

• Data Entry 

• Sequential Files 

• Writing Reports from Sequential Files 

• Adding and Deleting Records 

• Updating Sequential Files 

• Using Lists and Tables 

■ 

• Using Direct Access Files 

• Use and Design of Complex Programs 

• Conclusion 
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